Handle Infinity and NaN more compatibly.

swamp-agr · Aug 6, 2011 · 794147e · 794147e
1 parent 9d770bd
commit 794147e
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/Blaze/Text/Double/Native.hs b/Blaze/Text/Double/Native.hs
@@ -32,9 +32,11 @@ float = double . realToFrac
 
 double :: Double -> Builder
 double f
-    | isNaN f || isInfinite f   = fromByteString "null"
+    | isInfinite f              = fromByteString $
+                                  if f > 0 then "Infinity" else "-Infinity"
     | f < 0 || isNegativeZero f = minus `mappend` goGeneric (floatToDigits (-f))
-    | otherwise                 = goGeneric (floatToDigits f)
+    | f >= 0                    = goGeneric (floatToDigits f)
+    | otherwise                 = fromByteString "NaN"
   where
    goGeneric p@(T _ e)
      | e < 0 || e > 7 = goExponent p