text 1.1.1.3 → 1.1.1.4

raw patch · 2 files changed

+4/−5 lines, 2 files

Files

• Data/Text/Lazy/Encoding.hs +3/−3
• text.cabal +1/−2

@@ -62,7 +62,7 @@ import qualified Data.ByteString.Unsafe as B #if MIN_VERSION_bytestring(0,10,4) import Data.Word (Word8)-import Data.Monoid (mempty, (<>))+import Data.Monoid (mempty, mappend) import qualified Data.ByteString.Builder as B import qualified Data.ByteString.Builder.Extra as B (safeStrategy, toLazyByteStringWith) import qualified Data.ByteString.Builder.Prim as BP@@ -163,12 +163,12 @@     strategy        = B.safeStrategy firstChunkSize B.defaultChunkSize  encodeUtf8Builder :: Text -> B.Builder-encodeUtf8Builder = foldrChunks (\c b -> TE.encodeUtf8Builder c <> b) mempty+encodeUtf8Builder = foldrChunks (\c b -> TE.encodeUtf8Builder c `mappend` b) mempty  {-# INLINE encodeUtf8BuilderEscaped #-} encodeUtf8BuilderEscaped :: BP.BoundedPrim Word8 -> Text -> B.Builder encodeUtf8BuilderEscaped prim =-    foldrChunks (\c b -> TE.encodeUtf8BuilderEscaped prim c <> b) mempty+    foldrChunks (\c b -> TE.encodeUtf8BuilderEscaped prim c `mappend` b) mempty  #else encodeUtf8 (Chunk c cs) = B.Chunk (TE.encodeUtf8 c) (encodeUtf8 cs)

@@ -1,5 +1,5 @@ name:           text-version:        1.1.1.3+version:        1.1.1.4 homepage:       https://github.com/bos/text bug-reports:    https://github.com/bos/text/issues synopsis:       An efficient packed Unicode text type.@@ -136,7 +136,6 @@   ghc-options: -Wall -fwarn-tabs -funbox-strict-fields -O2   if flag(developer)     ghc-prof-options: -auto-all-    ghc-options: -Werror     cpp-options: -DASSERTS    if flag(integer-simple)