@@ -71,7 +71,7 @@ string s = fromChar '"' `mappend` quote s `mappend` fromChar '"'
7171fromNumber :: Number -> Builder
7272fromNumber (I i) = integral i
7373fromNumber (D d)
74− | isNaN d || isInfinite d = "null"
74+ | isNaN d || isInfinite d = fromByteString "null"
7575 | otherwise = double d
7676
7777-- | Efficiently serialize a JSON value as a lazy 'L.ByteString'.