hmpfr 0.4.0 → 0.4.0.1
raw patch · 5 files changed
+13/−5 lines, 5 files
Files
- hmpfr.cabal +1/−1
- src/Data/Number/MPFR/Instances/Down.hs +3/−1
- src/Data/Number/MPFR/Instances/Near.hs +3/−1
- src/Data/Number/MPFR/Instances/Up.hs +3/−1
- src/Data/Number/MPFR/Instances/Zero.hs +3/−1
hmpfr.cabal view
@@ -1,5 +1,5 @@ name: hmpfr-version: 0.4.0+version: 0.4.0.1 synopsis: Haskell binding to the MPFR library description: Haskell binding to the MPFR library.
src/Data/Number/MPFR/Instances/Down.hs view
@@ -47,9 +47,11 @@ negate d = A.neg Down (getPrec d) d abs d = A.absD Down (getPrec d) d signum = fromInt Down minPrec . fromMaybe (-1) .sgn--- #ifdef INTEGER_SIMPLE fromInteger i = fromIntegerA Down (max minPrec $ 1 + bitsInInteger i) i+-- #ifdef INTEGER_SIMPLE+-- fromInteger i =+-- fromIntegerA Down (max minPrec $ 1 + bitsInInteger i) i -- #endif -- #ifdef INTEGER_GMP -- fromInteger (S# i) = fromInt Down minPrec (E.I# i)
src/Data/Number/MPFR/Instances/Near.hs view
@@ -45,9 +45,11 @@ negate d = A.neg Near (getPrec d) d abs d = A.absD Near (getPrec d) d signum = fromInt Near minPrec . fromMaybe (-1) . sgn--- #ifdef INTEGER_SIMPLE fromInteger i = fromIntegerA Near (max minPrec $ 1 + bitsInInteger i) i+-- #ifdef INTEGER_SIMPLE+-- fromInteger i =+-- fromIntegerA Near (max minPrec $ 1 + bitsInInteger i) i -- #endif -- #ifdef INTEGER_GMP -- fromInteger (S# i) = fromInt Near minPrec (E.I# i)
src/Data/Number/MPFR/Instances/Up.hs view
@@ -47,9 +47,11 @@ negate d = A.neg Up (getPrec d) d abs d = A.absD Up (getPrec d) d signum = fromInt Up minPrec . fromMaybe (-1) . sgn--- #ifdef INTEGER_SIMPLE fromInteger i = fromIntegerA Up (max minPrec $ 1 + bitsInInteger i) i+-- #ifdef INTEGER_SIMPLE+-- fromInteger i =+-- fromIntegerA Up (max minPrec $ 1 + bitsInInteger i) i -- #endif -- #ifdef INTEGER_GMP -- fromInteger (S# i) = fromInt Up minPrec (E.I# i)
src/Data/Number/MPFR/Instances/Zero.hs view
@@ -46,9 +46,11 @@ negate d = A.neg Zero (getPrec d) d abs d = A.absD Zero (getPrec d) d signum = fromInt Zero minPrec . fromMaybe (-1) . sgn--- #ifdef INTEGER_SIMPLE fromInteger i = fromIntegerA Zero (max minPrec $ 1 + bitsInInteger i) i+-- #ifdef INTEGER_SIMPLE+-- fromInteger i =+-- fromIntegerA Zero (max minPrec $ 1 + bitsInInteger i) i -- #endif -- #ifdef INTEGER_GMP -- fromInteger (S# i) = fromInt Zero minPrec (E.I# i)