Bryan O'Sullivan avatar Bryan O'Sullivan committed dc8dafb

Add a "generic" function.

Comments (0)

Files changed (1)

Data/Text/Format.hs

     , expt_
     , fixed
     , fixed_
+    , generic
     ) where
 
 import qualified Data.Text.Buildable as B
 right k c =
     fromLazyText . LT.justifyLeft (fromIntegral k) c . toLazyText . B.build
 
+-- ^ Render a floating point number, with the given number of decimal
+-- places.  Use decimal notation for values between @0.1@ and
+-- @9,999,999@, and scientific notation otherwise.
+generic :: (B.Buildable a, RealFloat a) =>
+         Int
+      -- ^ Number of digits of precision after the decimal.
+      -> a -> Builder
+generic decs = B.build . FPControl Generic (Just decs)
+
 -- ^ Render a floating point number using normal notation, with the
 -- given number of decimal places.
 fixed :: (B.Buildable a, RealFloat a) =>
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.