@@ -28,7 +28,7 @@ module Data.Aeson.Encode
2828 ) where
2929
3030import Data.Aeson.Encode.Builder (encodeToBuilder)
31−import Data.Aeson.Types (ToJSON(..), Value(..))
31+import Data.Aeson.Types (ToJSON(..), Value(..), fromEncoding)
3232import Data.Monoid ((<>))
3333import Data.Scientific (FPFormat(..), Scientific, base10Exponent)
3434import Data.Text.Lazy.Builder
@@ -42,7 +42,7 @@ import qualified Data.Vector as V
4242
4343-- | Efficiently serialize a JSON value as a lazy 'L.ByteString'.
4444encode :: ToJSON a => a -> L.ByteString
45−encode = B.toLazyByteString . encodeToBuilder . toJSON
45+encode = B.toLazyByteString . fromEncoding . toEncoding
4646
4747-- | Encode a JSON 'Value' to a "Data.Text" 'Builder', which can be
4848-- embedded efficiently in a text-based protocol.