Commits

Bryan O'Sullivan  committed 8ca6674

Use realToFrac.

  • Participants
  • Parent commits e210c8b

Comments (0)

Files changed (1)

File Blaze/Text/Double.hs

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