Commits

Bryan O'Sullivan committed 8ca6674

Use realToFrac.

Comments (0)

Files changed (1)

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