fixed compile error complaining about literal "null"
commit241557f48928526683802aae049ca917e12b4372
authorAaron Culich <aculich@gmail.com>
dateSun 7 Aug 2011, 18:50 (15 years ago)
parent1dd38e4
Data/Aeson/Encode.hs+1−1
@@ -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'.