logfloat 0.9.1.2 → 0.9.1.3
raw patch · 3 files changed
+8/−11 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- Data/Number/LogFloat.hs +4/−7
- Data/Number/Transfinite.hs +1/−1
- logfloat.cabal +3/−3
Data/Number/LogFloat.hs view
@@ -193,8 +193,8 @@ -- | A constructor which does semantic conversion from normal-domain -- to log-domain. -{-# SPECIALIZE logFloat :: Double -> LogFloat #-} logFloat :: (Real a, RealToFrac a Double) => a -> LogFloat+{-# SPECIALIZE logFloat :: Double -> LogFloat #-} logFloat = LogFloat . log . guardNonNegative "logFloat" . realToFrac @@ -207,26 +207,23 @@ -- -- | Constructor which assumes the argument is already in the -- log-domain.--{-# SPECIALIZE logToLogFloat :: Double -> LogFloat #-} logToLogFloat :: (Real a, RealToFrac a Double) => a -> LogFloat+{-# SPECIALIZE logToLogFloat :: Double -> LogFloat #-} logToLogFloat = LogFloat . guardIsANumber "logToLogFloat" . realToFrac -- | Return our log-domain value back into normal-domain. Beware -- of overflow\/underflow.--{-# SPECIALIZE fromLogFloat :: LogFloat -> Double #-} fromLogFloat :: (Fractional a, Transfinite a, RealToFrac Double a) => LogFloat -> a+{-# SPECIALIZE fromLogFloat :: LogFloat -> Double #-} fromLogFloat (LogFloat x) = realToFrac (exp x) -- | Return the log-domain value itself without costly conversion--{-# SPECIALIZE logFromLogFloat :: LogFloat -> Double #-} logFromLogFloat :: (Fractional a, Transfinite a, RealToFrac Double a) => LogFloat -> a+{-# SPECIALIZE logFromLogFloat :: LogFloat -> Double #-} logFromLogFloat (LogFloat x) = realToFrac x
Data/Number/Transfinite.hs view
@@ -177,9 +177,9 @@ -- should avoid importing our @log@ and will probably want converters -- to handle the discrepancy. +log :: (Floating a, Transfinite a) => a -> a {-# SPECIALIZE log :: Double -> Double #-} {-# SPECIALIZE log :: Float -> Float #-}-log :: (Floating a, Transfinite a) => a -> a log x = case x `cmp` 0 of Just GT -> Prelude.log x Just EQ -> negativeInfinity
logfloat.cabal view
@@ -1,12 +1,12 @@ ------------------------------------------------------------------- wren ng thornton <wren@community.haskell.org> ~ 2008.10.12+-- wren ng thornton <wren@community.haskell.org> ~ 2008.10.16 ---------------------------------------------------------------- Name: logfloat-Version: 0.9.1.2+Version: 0.9.1.3 Cabal-Version: >= 1.2 Build-Type: Simple-Stability: provisional+Stability: experimental Copyright: Copyright (c) 2007--2008 wren ng thornton License: BSD3 License-File: LICENSE