git.iko.soy/text
on master help sign in
v1.1 with support for GHC<7.4 and bytestring>=0.10 combination
9b208ecAdam Bergmark
Data/Text/Lazy/Encoding.hs+3−3
compare with master
unifiedsplit
@@ -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 (mempty, mappend)
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
@@ -163,12 +163,12 @@ encodeUtf8 lt@(Chunk t _) =
163 strategy = B.safeStrategy firstChunkSize B.defaultChunkSize
163 strategy = B.safeStrategy firstChunkSize B.defaultChunkSize
164
164
165encodeUtf8Builder :: Text -> B.Builder
165encodeUtf8Builder :: Text -> B.Builder
166−encodeUtf8Builder = foldrChunks (\c b -> TE.encodeUtf8Builder c <> b) mempty
166+encodeUtf8Builder = foldrChunks (\c b -> TE.encodeUtf8Builder c `mappend` b) mempty
167
167
168{-# INLINE encodeUtf8BuilderEscaped #-}
168{-# INLINE encodeUtf8BuilderEscaped #-}
169encodeUtf8BuilderEscaped :: BP.BoundedPrim Word8 -> Text -> B.Builder
169encodeUtf8BuilderEscaped :: BP.BoundedPrim Word8 -> Text -> B.Builder
170encodeUtf8BuilderEscaped prim =
170encodeUtf8BuilderEscaped prim =
171− foldrChunks (\c b -> TE.encodeUtf8BuilderEscaped prim c <> b) mempty
171+ foldrChunks (\c b -> TE.encodeUtf8BuilderEscaped prim c `mappend` b) mempty
172
172
173#else
173#else
174encodeUtf8 (Chunk c cs) = B.Chunk (TE.encodeUtf8 c) (encodeUtf8 cs)
174encodeUtf8 (Chunk c cs) = B.Chunk (TE.encodeUtf8 c) (encodeUtf8 cs)
text.cabal+1−1
@@ -1,5 +1,5 @@
1name: text
1name: text
2−version: 1.1.1.3
2+version: 1.1.1.4
3homepage: https://github.com/bos/text
3homepage: https://github.com/bos/text
4bug-reports: https://github.com/bos/text/issues
4bug-reports: https://github.com/bos/text/issues
5synopsis: An efficient packed Unicode text type.
5synopsis: An efficient packed Unicode text type.