git.iko.soy/typeable/aeson
on master help sign in
edited Data.Aeson.Encoding,
ef99553Michael Thompson
Data/Aeson/Encode.hs+1−1
compare with master
unifiedsplit
@@ -71,7 +71,7 @@ string s = fromChar '"' `mappend` quote s `mappend` fromChar '"'
71fromNumber :: Number -> Builder
71fromNumber :: Number -> Builder
72fromNumber (I i) = integral i
72fromNumber (I i) = integral i
73fromNumber (D d)
73fromNumber (D d)
74− | isNaN d || isInfinite d = "null"
74+ | isNaN d || isInfinite d = fromByteString "null"
75 | otherwise = double d
75 | otherwise = double d
76
76
77-- | Efficiently serialize a JSON value as a lazy 'L.ByteString'.
77-- | Efficiently serialize a JSON value as a lazy 'L.ByteString'.