git.iko.soy/typeable/aeson
on master help sign in
Move encode to be based upon toEncoding
1f13f55Bryan O'Sullivan
Data/Aeson/Encode.hs+2−2
compare with master
unifiedsplit
@@ -28,7 +28,7 @@ module Data.Aeson.Encode
28 ) where
28 ) where
29
29
30import Data.Aeson.Encode.Builder (encodeToBuilder)
30import Data.Aeson.Encode.Builder (encodeToBuilder)
31−import Data.Aeson.Types (ToJSON(..), Value(..))
31+import Data.Aeson.Types (ToJSON(..), Value(..), fromEncoding)
32import Data.Monoid ((<>))
32import Data.Monoid ((<>))
33import Data.Scientific (FPFormat(..), Scientific, base10Exponent)
33import Data.Scientific (FPFormat(..), Scientific, base10Exponent)
34import Data.Text.Lazy.Builder
34import Data.Text.Lazy.Builder
@@ -42,7 +42,7 @@ import qualified Data.Vector as V
42
42
43-- | Efficiently serialize a JSON value as a lazy 'L.ByteString'.
43-- | Efficiently serialize a JSON value as a lazy 'L.ByteString'.
44encode :: ToJSON a => a -> L.ByteString
44encode :: ToJSON a => a -> L.ByteString
45−encode = B.toLazyByteString . encodeToBuilder . toJSON
45+encode = B.toLazyByteString . fromEncoding . toEncoding
46
46
47-- | Encode a JSON 'Value' to a "Data.Text" 'Builder', which can be
47-- | Encode a JSON 'Value' to a "Data.Text" 'Builder', which can be
48-- embedded efficiently in a text-based protocol.
48-- embedded efficiently in a text-based protocol.