1. Bryan O'Sullivan
  2. blaze-textual

Commits

Bryan O'Sullivan  committed 8ca6674

Use realToFrac.

  • Participants
  • Parent commits e210c8b
  • Branches default

Comments (0)

Files changed (1)

File Blaze/Text/Double.hs

View file
 data T = T [Int] {-# UNPACK #-} !Int
 
 float :: Float -> Builder
-float = double . fromRational . toRational
+float = double . realToFrac
 
 double :: Double -> Builder
 double f