@@ -17,15 +17,14 @@ module Data.Aeson.Encode.ByteString
1717 , encodeToByteStringBuilder
1818 ) where
1919
20−import Prelude hiding (null)
2120import Data.Aeson.Types (ToJSON(..), Value(..))
21+import Data.ByteString.Builder as B
22+import Data.ByteString.Builder.Prim as BP
23+import Data.ByteString.Builder.Scientific (scientificBuilder)
2224import Data.Char (ord)
23−import Data.Scientific (Scientific, coefficient, base10Exponent)
24−import Data.Word (Word8)
2525import Data.Monoid ((<>))
26−import Data.ByteString.Builder as B
27−import Data.ByteString.Builder.Prim as BP
28−import Data.ByteString.Builder.Scientific (scientificBuilder)
26+import Data.Scientific (Scientific, base10Exponent, coefficient)
27+import Data.Word (Word8)
2928import qualified Data.ByteString.Lazy as L
3029import qualified Data.HashMap.Strict as HMS
3130import qualified Data.Text as T
@@ -39,7 +38,7 @@ encode = B.toLazyByteString . encodeToBuilder . toJSON
3938-- | Encode a JSON value to a ByteString 'B.Builder'. Use this function if you
4039-- must prepend or append further bytes to the encoded JSON value.
4140encodeToBuilder :: Value -> Builder
42−encodeToBuilder Null = null
41+encodeToBuilder Null = null_
4342encodeToBuilder (Bool b) = bool b
4443encodeToBuilder (Number n) = number n
4544encodeToBuilder (String s) = string s
@@ -51,8 +50,8 @@ encodeToByteStringBuilder :: Value -> Builder
5150encodeToByteStringBuilder = encodeToBuilder
5251{-# DEPRECATED encodeToByteStringBuilder "Use encodeToBuilder instead." #-}
5352
54−null :: Builder
55−null = BP.primBounded (ascii4 ('n',('u',('l','l')))) ()
53+null_ :: Builder
54+null_ = BP.primBounded (ascii4 ('n',('u',('l','l')))) ()
5655
5756bool :: Bool -> Builder
5857bool = BP.primBounded (BP.condB id (ascii4 ('t',('r',('u','e'))))