Fix thinko

haskell · Aug 7, 2011 · 5a37d4f · 5a37d4f
1 parent c5a463f
commit 5a37d4f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Data/Aeson/Encode.hs b/Data/Aeson/Encode.hs
@@ -71,7 +71,7 @@ string s = fromChar '"' `mappend` quote s `mappend` fromChar '"'
 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'.