Hello community, here is the log from the commit of package ghc-ieee754 for openSUSE:Factory checked in at 2017-03-14 10:05:18 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-ieee754 (Old) and /work/SRC/openSUSE:Factory/.ghc-ieee754.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-ieee754" Tue Mar 14 10:05:18 2017 rev:4 rq:461651 version:0.8.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-ieee754/ghc-ieee754.changes 2016-12-06 14:24:43.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-ieee754.new/ghc-ieee754.changes 2017-03-14 10:05:28.621467873 +0100 @@ -1,0 +2,5 @@ +Sun Feb 12 14:19:01 UTC 2017 - [email protected] + +- Update to version 0.8.0 with cabal2obs. + +------------------------------------------------------------------- Old: ---- ieee754-0.7.9.tar.gz New: ---- ieee754-0.8.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-ieee754.spec ++++++ --- /var/tmp/diff_new_pack.GH4jG6/_old 2017-03-14 10:05:29.513341584 +0100 +++ /var/tmp/diff_new_pack.GH4jG6/_new 2017-03-14 10:05:29.517341017 +0100 @@ -1,7 +1,7 @@ # # spec file for package ghc-ieee754 # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -18,7 +18,7 @@ %global pkg_name ieee754 Name: ghc-%{pkg_name} -Version: 0.7.9 +Version: 0.8.0 Release: 0 Summary: Utilities for dealing with IEEE floating point numbers License: BSD-3-Clause ++++++ ieee754-0.7.9.tar.gz -> ieee754-0.8.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/ieee754-0.7.9/CHANGELOG new/ieee754-0.8.0/CHANGELOG --- old/ieee754-0.7.9/CHANGELOG 2016-11-10 21:49:37.000000000 +0100 +++ new/ieee754-0.8.0/CHANGELOG 2017-01-30 12:15:18.000000000 +0100 @@ -1,3 +1,8 @@ +Changes in 0.8.0: + +* Daniel Mendler added minDenormal. + + Changes in 0.7.9: * Rename nextup/nextdown to ieeesucc/ieeepred to avoid clashes with diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/ieee754-0.7.9/Numeric/IEEE.hs new/ieee754-0.8.0/Numeric/IEEE.hs --- old/ieee754-0.7.9/Numeric/IEEE.hs 2016-11-10 21:49:37.000000000 +0100 +++ new/ieee754-0.8.0/Numeric/IEEE.hs 2017-01-30 12:15:18.000000000 +0100 @@ -27,6 +27,9 @@ -- | Infinity value. infinity :: a + -- | The smallest representable positive value. + minDenormal :: a + -- | The smallest representable positive normalized value. minNormal :: a @@ -118,6 +121,8 @@ {-# INLINE maxNaNPayload #-} nanPayload x = fromIntegral $ c_getnanf x {-# INLINE nanPayload #-} + minDenormal = 1e-45 + {-# INLINE minDenormal #-} minNormal = 1.17549435e-38 {-# INLINE minNormal #-} maxFinite = 3.40282347e+38 @@ -149,6 +154,8 @@ {-# INLINE maxNaNPayload #-} nanPayload x = fromIntegral $ c_getnanf (realToFrac x) {-# INLINE nanPayload #-} + minDenormal = 1e-45 + {-# INLINE minDenormal #-} minNormal = 1.17549435e-38 {-# INLINE minNormal #-} maxFinite = 3.40282347e+38 @@ -180,6 +187,8 @@ {-# INLINE maxNaNPayload #-} nanPayload x = c_getnan x {-# INLINE nanPayload #-} + minDenormal = 5e-324 + {-# INLINE minDenormal #-} minNormal = 2.2250738585072014e-308 {-# INLINE minNormal #-} maxFinite = 1.7976931348623157e+308 @@ -211,6 +220,8 @@ {-# INLINE maxNaNPayload #-} nanPayload x = c_getnan (realToFrac x) {-# INLINE nanPayload #-} + minDenormal = 5e-324 + {-# INLINE minDenormal #-} minNormal = 2.2250738585072014e-308 {-# INLINE minNormal #-} maxFinite = 1.7976931348623157e+308 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/ieee754-0.7.9/ieee754.cabal new/ieee754-0.8.0/ieee754.cabal --- old/ieee754-0.7.9/ieee754.cabal 2016-11-10 21:49:37.000000000 +0100 +++ new/ieee754-0.8.0/ieee754.cabal 2017-01-30 12:15:18.000000000 +0100 @@ -1,5 +1,5 @@ name: ieee754 -version: 0.7.9 +version: 0.8.0 homepage: http://github.com/patperry/hs-ieee754 synopsis: Utilities for dealing with IEEE floating point numbers description: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/ieee754-0.7.9/tests/Tests.hs new/ieee754-0.8.0/tests/Tests.hs --- old/ieee754-0.7.9/tests/Tests.hs 2016-11-10 21:49:37.000000000 +0100 +++ new/ieee754-0.8.0/tests/Tests.hs 2017-01-30 12:15:18.000000000 +0100 @@ -13,13 +13,13 @@ type F = Float infix 1 @?~=, @?== - -(@?~=) actual expected = + +(@?~=) actual expected = unless (actual ~== expected) (assertFailure msg) where msg = "expected: " ++ show expected ++ "\n but got: " ++ show actual -(@?==) actual expected = +(@?==) actual expected = unless (actual === expected) (assertFailure msg) where msg = "expected: " ++ show expected ++ "\n but got: " ++ show actual @@ -31,12 +31,12 @@ , testCase "D2" test_maxNum_D2 , testCase "D3" test_maxNum_D3 , testCase "D4" test_maxNum_D4 - , testCase "D5" test_maxNum_D5 + , testCase "D5" test_maxNum_D5 , testCase "F1" test_maxNum_F1 , testCase "F2" test_maxNum_F2 , testCase "F3" test_maxNum_F3 , testCase "F4" test_maxNum_F4 - , testCase "F5" test_maxNum_F5 + , testCase "F5" test_maxNum_F5 ] test_maxNum_D1 = maxNum nan 1 @?= (1 :: D) @@ -60,12 +60,12 @@ , testCase "D2" test_minNum_D2 , testCase "D3" test_minNum_D3 , testCase "D4" test_minNum_D4 - , testCase "D5" test_minNum_D5 + , testCase "D5" test_minNum_D5 , testCase "F1" test_minNum_F1 , testCase "F2" test_minNum_F2 , testCase "F3" test_minNum_F3 , testCase "F4" test_minNum_F4 - , testCase "F5" test_minNum_F5 + , testCase "F5" test_minNum_F5 ] test_minNum_D1 = minNum nan 1 @?= (1 :: D) @@ -90,12 +90,12 @@ , testCase "D2" test_maxNaN_D2 , testCase "D3" test_maxNaN_D3 , testCase "D4" test_maxNaN_D4 - , testCase "D5" test_maxNaN_D5 + , testCase "D5" test_maxNaN_D5 , testCase "F1" test_maxNaN_F1 , testCase "F2" test_maxNaN_F2 , testCase "F3" test_maxNaN_F3 , testCase "F4" test_maxNaN_F4 - , testCase "F5" test_maxNaN_F5 + , testCase "F5" test_maxNaN_F5 ] test_maxNaN_D1 = maxNaN nan 1 @?== (nan :: D) @@ -120,12 +120,12 @@ , testCase "D2" test_minNaN_D2 , testCase "D3" test_minNaN_D3 , testCase "D4" test_minNaN_D4 - , testCase "D5" test_minNaN_D5 + , testCase "D5" test_minNaN_D5 , testCase "F1" test_minNaN_F1 , testCase "F2" test_minNaN_F2 , testCase "F3" test_minNaN_F3 , testCase "F4" test_minNaN_F4 - , testCase "F5" test_minNaN_F5 + , testCase "F5" test_minNaN_F5 ] test_minNaN_D1 = minNaN nan 1 @?== (nan :: D) @@ -169,6 +169,13 @@ test_infinity_F2 = infinity > (0 :: F) @?= True +test_minDenormal = testGroup "minDenormal" + [ testCase "D1" (succIEEE 0 @?= (minDenormal :: D)) + , testCase "D2" (isDenormalized (minDenormal :: D) @?= True) + , testCase "F1" (succIEEE 0 @?= (minDenormal :: F)) + , testCase "F2" (isDenormalized (minDenormal :: F) @?= True) + ] + test_minNormal = testGroup "minNormal" [ testCase "D" (go (minNormal :: D)) , testCase "F" (go (minNormal :: F)) @@ -274,19 +281,19 @@ , testCase "D2" test_bisectIEEE_D2 , testCase "D3" test_bisectIEEE_D3 , testCase "D4" test_bisectIEEE_D4 - , testCase "D5" test_bisectIEEE_D5 - , testCase "D6" test_bisectIEEE_D6 - , testCase "D7" test_bisectIEEE_D7 - , testCase "D8" test_bisectIEEE_D8 + , testCase "D5" test_bisectIEEE_D5 + , testCase "D6" test_bisectIEEE_D6 + , testCase "D7" test_bisectIEEE_D7 + , testCase "D8" test_bisectIEEE_D8 , testCase "D9" test_bisectIEEE_D9 , testCase "F1" test_bisectIEEE_F1 , testCase "F2" test_bisectIEEE_F2 , testCase "F3" test_bisectIEEE_F3 , testCase "F4" test_bisectIEEE_F4 - , testCase "F5" test_bisectIEEE_F5 - , testCase "F6" test_bisectIEEE_F6 - , testCase "F7" test_bisectIEEE_F7 - , testCase "F8" test_bisectIEEE_F8 + , testCase "F5" test_bisectIEEE_F5 + , testCase "F6" test_bisectIEEE_F6 + , testCase "F7" test_bisectIEEE_F7 + , testCase "F8" test_bisectIEEE_F8 , testCase "F9" test_bisectIEEE_F9 ] @@ -607,7 +614,7 @@ , testCase "D3" test_nanPayload_D3 , testCase "F1" test_nanPayload_F1 , testCase "F2" test_nanPayload_F2 - , testCase "F3" test_nanPayload_F3 + , testCase "F3" test_nanPayload_F3 ] test_nanPayload_D1 = @@ -639,16 +646,16 @@ test_copySign = testGroup "copySign" [ testCase "D1" test_copySign_D1 , testCase "D2" test_copySign_D2 - , testCase "D3" test_copySign_D3 - , testCase "D4" test_copySign_D4 - , testCase "D5" test_copySign_D5 - , testCase "D6" test_copySign_D6 + , testCase "D3" test_copySign_D3 + , testCase "D4" test_copySign_D4 + , testCase "D5" test_copySign_D5 + , testCase "D6" test_copySign_D6 , testCase "F1" test_copySign_F1 , testCase "F2" test_copySign_F2 - , testCase "F3" test_copySign_F3 - , testCase "F4" test_copySign_F4 - , testCase "F5" test_copySign_F5 - , testCase "F6" test_copySign_F6 + , testCase "F3" test_copySign_F3 + , testCase "F4" test_copySign_F4 + , testCase "F5" test_copySign_F5 + , testCase "F6" test_copySign_F6 ] test_copySign_D1 = @@ -682,6 +689,7 @@ test_IEEE = testGroup "IEEE" [ test_infinity , test_minNormal + , test_minDenormal , test_maxFinite , test_epsilon , test_copySign
