floatshow 0.2.1 → 0.2.2

raw patch · 2 files changed

+53/−2 lines, 2 filesdep ~arrayPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: array

API changes (from Hackage documentation)

Files

• Text/FShow/RealFloat.hs +51/−0
• floatshow.cabal +2/−2

@@ -19,10 +19,13 @@     , fshowFFloat     , fshowGFloat     , Double7(..)+    , FullDouble(..)     , Float7(..)+    , FullFloat(..)     ) where  import GHC.Show+import GHC.Read import GHC.Float (showSignedFloat) import Text.FShow.RealFloat.Internals @@ -89,6 +92,30 @@   fshowsPrec p  = showSignedFloat fshowFloat p   fshowList     = showList__ (fshowsPrec 0) +-- | newtype wrapper for 'Double'. The 'Show' (and 'FShow') instance+--   displays all significant digits.+newtype FullDouble = FD { unFD :: Double }+  deriving (Eq, Ord, Num, Fractional, Real, RealFrac, Floating, RealFloat)++instance DispFloat FullDouble where+  decDigits (FD x)  = case decodeFloat x of+                        (_,e) -> case ((53+e)*8651) `quot` 28738 of+                                   q | e >= 0    -> q+2+                                     | e > (-53) -> q+1-e+                                     | otherwise -> q-e+  binExp _          = 52++instance Show FullDouble where+  showsPrec p = showSignedFloat fshowFloat p++instance FShow FullDouble where+  fshowsPrec p = showSignedFloat fshowFloat p+  fshowList     = showList__ (fshowsPrec 0)++instance Read FullDouble where+  readPrec = fmap FD readPrec+  readListPrec = readListPrecDefault+ -- | newtype wrapper for 'Float'. The 'Show' (and 'FShow') instance --   displays numbers rounded to seven significant digits. newtype Float7 = F7 Float@@ -104,6 +131,30 @@ instance FShow Float7 where   fshowsPrec p  = showSignedFloat fshowFloat p   fshowList     = showList__ (fshowsPrec 0)++-- | newtype wrapper for 'Double'. The 'Show' (and 'FShow') instance+--   displays all significant digits.+newtype FullFloat = FF { unFF :: Float }+  deriving (Eq, Ord, Num, Fractional, Real, RealFrac, Floating, RealFloat)++instance DispFloat FullFloat where+  decDigits (FF x)  = case decodeFloat x of+                        (_,e) -> case ((24+e)*8651) `quot` 28738 of+                                   q | e >= 0    -> q+2+                                     | e > (-24) -> q+1-e+                                     | otherwise -> q-e+  binExp _          = 23++instance Show FullFloat where+  showsPrec p = showSignedFloat fshowFloat p++instance FShow FullFloat where+  fshowsPrec p = showSignedFloat fshowFloat p+  fshowList     = showList__ (fshowsPrec 0)++instance Read FullFloat where+  readPrec = fmap FF readPrec+  readListPrec = readListPrecDefault  {-     The code below is a minor modification of code from GHC.Float

@@ -7,7 +7,7 @@ -- The package version. See the Haskell package versioning policy -- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for -- standards guiding when and how versions should be incremented.-Version:             0.2.1+Version:             0.2.2  -- Constraint on the version of Cabal needed to build this package. Cabal-version:       >=1.6@@ -75,7 +75,7 @@                      Text.FShow.Raw    -- Packages needed in order to build this package.-  Build-depends:     base >= 4 && < 5, array >= 0.1 && < 0.4+  Build-depends:     base >= 4 && < 5, array >= 0.1 && < 0.5   if flag(gmp)     Build-depends:   integer-gmp   else