Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-scientific for openSUSE:Factory checked in at 2026-06-10 16:05:31 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-scientific (Old) and /work/SRC/openSUSE:Factory/.ghc-scientific.new.2375 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-scientific" Wed Jun 10 16:05:31 2026 rev:35 rq:1358430 version:0.3.8.1 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-scientific/ghc-scientific.changes 2025-01-05 15:29:28.237355340 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-scientific.new.2375/ghc-scientific.changes 2026-06-10 16:09:09.172499656 +0200 @@ -1,0 +2,7 @@ +Mon Jan 5 13:02:29 UTC 2026 - Peter Simons <[email protected]> + +- Update scientific to version 0.3.8.1. + Upstream has not updated the file "changelog" since the last + release. + +------------------------------------------------------------------- Old: ---- scientific-0.3.8.0.tar.gz scientific.cabal New: ---- scientific-0.3.8.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-scientific.spec ++++++ --- /var/tmp/diff_new_pack.PjZ2NL/_old 2026-06-10 16:09:12.476636580 +0200 +++ /var/tmp/diff_new_pack.PjZ2NL/_new 2026-06-10 16:09:12.476636580 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-scientific # -# Copyright (c) 2024 SUSE LLC +# Copyright (c) 2026 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -20,13 +20,12 @@ %global pkgver %{pkg_name}-%{version} %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.3.8.0 +Version: 0.3.8.1 Release: 0 Summary: Numbers represented using scientific notation License: BSD-3-Clause URL: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{version}.tar.gz -Source1: https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/2.cabal#/%{pkg_name}.cabal BuildRequires: ghc-Cabal-devel BuildRequires: ghc-base-devel BuildRequires: ghc-base-prof @@ -123,7 +122,6 @@ %prep %autosetup -n %{pkg_name}-%{version} -cp -p %{SOURCE1} %{pkg_name}.cabal %build %ghc_lib_build ++++++ scientific-0.3.8.0.tar.gz -> scientific-0.3.8.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/scientific-0.3.8.0/scientific.cabal new/scientific-0.3.8.1/scientific.cabal --- old/scientific-0.3.8.0/scientific.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/scientific-0.3.8.1/scientific.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,5 +1,5 @@ name: scientific -version: 0.3.8.0 +version: 0.3.8.1 synopsis: Numbers represented using scientific notation description: "Data.Scientific" provides the number type 'Scientific'. Scientific numbers are @@ -49,13 +49,15 @@ || ==9.0.2 || ==9.2.8 || ==9.4.8 - || ==9.6.5 - || ==9.8.2 - || ==9.10.1 + || ==9.6.6 + || ==9.8.4 + || ==9.10.3 + || ==9.12.2 + || ==9.14.1 source-repository head type: git - location: git://github.com/basvandijk/scientific.git + location: https://github.com/basvandijk/scientific.git flag integer-simple description: Use the integer-simple package instead of integer-gmp @@ -78,15 +80,15 @@ ghc-options: -Wall build-depends: - base >=4.5 && <4.21 + base >=4.12.0.0 && <4.23 , binary >=0.8.6.0 && <0.9 , bytestring >=0.10.8.2 && <0.13 - , containers >=0.6.0.1 && <0.8 + , containers >=0.6.0.1 && <0.9 , deepseq >=1.4.4.0 && <1.6 - , hashable >=1.4.4.0 && <1.5 + , hashable >=1.4.4.0 && <1.6 , integer-logarithms >=1.0.3.1 && <1.1 , primitive >=0.9.0.0 && <0.10 - , template-haskell >=2.14.0.0 && <2.23 + , template-haskell >=2.14.0.0 && <2.25 , text >=1.2.3.0 && <1.3 || >=2.0 && <2.2 if impl(ghc >=9.0) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/scientific-0.3.8.0/src/Data/ByteString/Builder/Scientific.hs new/scientific-0.3.8.1/src/Data/ByteString/Builder/Scientific.hs --- old/scientific-0.3.8.0/src/Data/ByteString/Builder/Scientific.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/scientific-0.3.8.1/src/Data/ByteString/Builder/Scientific.hs 2001-09-09 03:46:40.000000000 +0200 @@ -59,11 +59,10 @@ byteStringCopy (BC8.replicate dec' '0') <> byteStringCopy "e0" _ -> - let - (ei,is') = roundTo (dec'+1) is - (d:ds') = map i2d (if ei > 0 then init is' else is') - in - char8 d <> char8 '.' <> string8 ds' <> char8 'e' <> intDec (e-1+ei) + let (ei,is') = roundTo (dec'+1) is + in case map i2d (if ei > 0 then init is' else is') of + [] -> mempty + d:ds' -> char8 d <> char8 '.' <> string8 ds' <> char8 'e' <> intDec (e-1+ei) Fixed -> let mk0 ls = case ls of { "" -> char8 '0' ; _ -> string8 ls} @@ -89,8 +88,7 @@ in mk0 ls <> (if null rs then mempty else char8 '.' <> string8 rs) else - let - (ei,is') = roundTo dec' (replicate (-e) 0 ++ is) - d:ds' = map i2d (if ei > 0 then is' else 0:is') - in - char8 d <> (if null ds' then mempty else char8 '.' <> string8 ds') + let (ei,is') = roundTo dec' (replicate (-e) 0 ++ is) + in case map i2d (if ei > 0 then is' else 0:is') of + [] -> mempty + d:ds' -> char8 d <> (if null ds' then mempty else char8 '.' <> string8 ds') diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/scientific-0.3.8.0/src/Data/Scientific.hs new/scientific-0.3.8.1/src/Data/Scientific.hs --- old/scientific-0.3.8.0/src/Data/Scientific.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/scientific-0.3.8.1/src/Data/Scientific.hs 2001-09-09 03:46:40.000000000 +0200 @@ -1036,11 +1036,10 @@ case is of [0] -> '0' :'.' : take dec' (repeat '0') ++ "e0" _ -> - let - (ei,is') = roundTo (dec'+1) is - (d:ds') = map intToDigit (if ei > 0 then init is' else is') - in - d:'.':ds' ++ 'e':show (e-1+ei) + let (ei,is') = roundTo (dec'+1) is + in case map intToDigit (if ei > 0 then init is' else is') of + [] -> "" + d:ds' -> d:'.':ds' ++ 'e':show (e-1+ei) fmtAsFixedDecs :: Int -> ([Int], Int) -> String fmtAsFixedDecs dec (is, e) = @@ -1052,11 +1051,10 @@ in mk0 ls ++ (if null rs then "" else '.':rs) else - let - (ei,is') = roundTo dec' (replicate (-e) 0 ++ is) - d:ds' = map intToDigit (if ei > 0 then is' else 0:is') - in - d : (if null ds' then "" else '.':ds') + let (ei,is') = roundTo dec' (replicate (-e) 0 ++ is) + in case map intToDigit (if ei > 0 then is' else 0:is') of + [] -> "" + d:ds' -> d : (if null ds' then "" else '.':ds') where mk0 ls = case ls of { "" -> "0" ; _ -> ls} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/scientific-0.3.8.0/src/Data/Text/Lazy/Builder/Scientific.hs new/scientific-0.3.8.1/src/Data/Text/Lazy/Builder/Scientific.hs --- old/scientific-0.3.8.0/src/Data/Text/Lazy/Builder/Scientific.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/scientific-0.3.8.1/src/Data/Text/Lazy/Builder/Scientific.hs 2001-09-09 03:46:40.000000000 +0200 @@ -55,11 +55,10 @@ case is of [0] -> "0." <> fromText (T.replicate dec' "0") <> "e0" _ -> - let - (ei,is') = roundTo (dec'+1) is - (d:ds') = map i2d (if ei > 0 then init is' else is') - in - singleton d <> singleton '.' <> fromString ds' <> singleton 'e' <> decimal (e-1+ei) + let (ei,is') = roundTo (dec'+1) is + in case map i2d (if ei > 0 then init is' else is') of + [] -> mempty + d:ds' -> singleton d <> singleton '.' <> fromString ds' <> singleton 'e' <> decimal (e-1+ei) Fixed -> let mk0 ls = case ls of { "" -> "0" ; _ -> fromString ls} @@ -83,8 +82,7 @@ in mk0 ls <> (if null rs then "" else singleton '.' <> fromString rs) else - let - (ei,is') = roundTo dec' (replicate (-e) 0 ++ is) - d:ds' = map i2d (if ei > 0 then is' else 0:is') - in - singleton d <> (if null ds' then "" else singleton '.' <> fromString ds') + let (ei,is') = roundTo dec' (replicate (-e) 0 ++ is) + in case map i2d (if ei > 0 then is' else 0:is') of + [] -> mempty + d:ds' -> singleton d <> (if null ds' then "" else singleton '.' <> fromString ds')
