Commits

Bryan O'Sullivan committed 0ec6030

Fix thinko

Comments (0)

Files changed (1)

 fromNumber :: Number -> Builder
 fromNumber (I i) = integral i
 fromNumber (D d)
-    | isNaN d || isInfinite d = "null"
+    | isNaN d || isInfinite d = fromByteString "null"
     | otherwise               = double d
 
 -- | Efficiently serialize a JSON value as a lazy 'L.ByteString'.