@@ -13,6 +13,7 @@
1313
1414module Data.Aeson.Encode.ByteString
1515 ( encode
16+ , encodeToBuilder
1617 , encodeToByteStringBuilder
1718 ) where
1819
@@ -38,17 +39,22 @@ infixr 6 <>
3839
3940-- | Efficiently serialize a JSON value as a lazy 'L.ByteString'.
4041encode :: ToJSON a => a -> L.ByteString
41−encode = B.toLazyByteString . encodeToByteStringBuilder . toJSON
42+encode = B.toLazyByteString . encodeToBuilder . toJSON
4243
4344-- | Encode a JSON value to a ByteString 'B.Builder'. Use this function if you
4445-- must prepend or append further bytes to the encoded JSON value.
46+encodeToBuilder :: Value -> Builder
47+encodeToBuilder Null = null
48+encodeToBuilder (Bool b) = bool b
49+encodeToBuilder (Number n) = number n
50+encodeToBuilder (String s) = string s
51+encodeToBuilder (Array v) = array v
52+encodeToBuilder (Object m) = object m
53+
54+-- | This function is an alias for 'encodeToBuilder'.
4555encodeToByteStringBuilder :: Value -> Builder
46−encodeToByteStringBuilder Null = null
47−encodeToByteStringBuilder (Bool b) = bool b
48−encodeToByteStringBuilder (Number n) = number n
49−encodeToByteStringBuilder (String s) = string s
50−encodeToByteStringBuilder (Array v) = array v
51−encodeToByteStringBuilder (Object m) = object m
56+encodeToByteStringBuilder = encodeToBuilder
57+{-# DEPRECATED encodeToByteStringBuilder "Use encodeToBuilder instead." #-}
5258
5359null :: Builder
5460null = BP.primBounded (ascii4 ('n',('u',('l','l')))) ()