text-format 0.3.1.0 → 0.3.1.1

raw patch · 3 files changed

+7/−1 lines, 3 files

Files

• Data/Text/Format.hs +4/−0
• Data/Text/Format/Int.hs +2/−0
• text-format.cabal +1/−1

@@ -112,6 +112,7 @@ {-# RULES "prec/Double"     forall d x. prec d (x::Double) = B.build (C.toPrecision d x) #-} prec digits = B.build . C.toPrecision digits . realToFrac+{-# NOINLINE[0] prec #-}  -- | Render a floating point number using normal notation, with the -- given number of decimal places.@@ -122,6 +123,7 @@ fixed decs = B.build . C.toFixed decs . realToFrac {-# RULES "fixed/Double"     forall d x. fixed d (x::Double) = B.build (C.toFixed d x) #-}+{-# NOINLINE[0] fixed #-}  -- | Render a floating point number using scientific/engineering -- notation (e.g. @2.3e123@), with the given number of decimal places.@@ -132,6 +134,7 @@ expt decs = B.build . C.toExponential decs . realToFrac {-# RULES "expt/Double"     forall d x. expt d (x::Double) = B.build (C.toExponential d x) #-}+{-# NOINLINE[0] expt #-}  -- | Render a floating point number using the smallest number of -- digits that correctly represent it.@@ -139,6 +142,7 @@ shortest = B.build . C.toShortest . realToFrac {-# RULES "shortest/Double"     forall x. shortest (x::Double) = B.build (C.toShortest x) #-}+{-# NOINLINE[0] shortest #-}  -- | Render an integer using hexadecimal notation.  (No leading "0x" -- is added.)

@@ -57,6 +57,7 @@   where     go n | n < 10    = digit n          | otherwise = go (n `quot` 10) <> digit (n `rem` 10)+{-# NOINLINE[0] decimal #-}  hexadecimal :: Integral a => a -> Builder {-# SPECIALIZE hexadecimal :: Int -> Builder #-}@@ -76,6 +77,7 @@   where     go n | n < 16    = hexDigit n          | otherwise = go (n `quot` 16) <> hexDigit (n `rem` 16)+{-# NOINLINE[0] hexadecimal #-}  digit :: Integral a => a -> Builder digit n = singleton $! i2d (fromIntegral n)

@@ -1,5 +1,5 @@ name:           text-format-version:        0.3.1.0+version:        0.3.1.1 license:        BSD3 license-file:   LICENSE homepage:       https://github.com/bos/text-format