@@ -62,7 +62,7 @@ import qualified Data.ByteString.Lazy.Internal as B
62import qualified Data.ByteString.Unsafe as B
62import qualified Data.ByteString.Unsafe as B
63#if MIN_VERSION_bytestring(0,10,4)
63#if MIN_VERSION_bytestring(0,10,4)
64import Data.Word (Word8)
64import Data.Word (Word8)
65−import Data.Monoid (mempty, (<>))
65+import Data.Monoid (mappend, mempty)
66import qualified Data.ByteString.Builder as B
66import qualified Data.ByteString.Builder as B
67import qualified Data.ByteString.Builder.Extra as B (safeStrategy, toLazyByteStringWith)
67import qualified Data.ByteString.Builder.Extra as B (safeStrategy, toLazyByteStringWith)
68import qualified Data.ByteString.Builder.Prim as BP
68import qualified Data.ByteString.Builder.Prim as BP
@@ -161,12 +161,13 @@ encodeUtf8 lt@(Chunk t _) =
161 strategy = B.safeStrategy firstChunkSize B.defaultChunkSize
161 strategy = B.safeStrategy firstChunkSize B.defaultChunkSize
163encodeUtf8Builder :: Text -> B.Builder
163encodeUtf8Builder :: Text -> B.Builder
164−encodeUtf8Builder = foldrChunks (\c b -> TE.encodeUtf8Builder c <> b) mempty
165+ foldrChunks (\c b -> TE.encodeUtf8Builder c `mappend` b) mempty
166{-# INLINE encodeUtf8BuilderEscaped #-}
167{-# INLINE encodeUtf8BuilderEscaped #-}
167encodeUtf8BuilderEscaped :: BP.BoundedPrim Word8 -> Text -> B.Builder
168encodeUtf8BuilderEscaped :: BP.BoundedPrim Word8 -> Text -> B.Builder
168encodeUtf8BuilderEscaped prim =
169encodeUtf8BuilderEscaped prim =
169− foldrChunks (\c b -> TE.encodeUtf8BuilderEscaped prim c <> b) mempty
170+ foldrChunks (\c b -> TE.encodeUtf8BuilderEscaped prim c `mappend` b) mempty
172encodeUtf8 (Chunk c cs) = B.Chunk (TE.encodeUtf8 c) (encodeUtf8 cs)
173encodeUtf8 (Chunk c cs) = B.Chunk (TE.encodeUtf8 c) (encodeUtf8 cs)