From 61378b3cca222ad7823fd84ff843add11b8de36f Mon Sep 17 00:00:00 2001
From: Bryan O'Sullivan <bos@serpentine.com>
Date: Fri, 9 Jan 2015 11:57:20 -0800
Subject: [PATCH] Fix incompatibility with base < 4.5 (gh-108)
---
Data/Text/Lazy/Encoding.hs | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/Data/Text/Lazy/Encoding.hs b/Data/Text/Lazy/Encoding.hs
index 6f33d217..ddcf7835 100644
--- a/Data/Text/Lazy/Encoding.hs
+++ b/Data/Text/Lazy/Encoding.hs
@@ -62,7 +62,7 @@ import qualified Data.ByteString.Lazy.Internal as B
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 (mappend, mempty)
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
@@ -161,12 +161,13 @@ encodeUtf8 lt@(Chunk t _) =
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)
--
GitLab