Re-export some Data.Text modules for the purpose of downstream libraries being able to write code compatible with the fake text module

Author: newhoggy

prettyprinter/bench/LargeOutput.hs

@@ -1,5 +1,7 @@
-{-# LANGUAGE DeriveGeneric     #-}
-{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE DeriveGeneric        #-}
+{-# LANGUAGE FlexibleInstances    #-}
+{-# LANGUAGE OverloadedStrings    #-}
+{-# LANGUAGE TypeSynonymInstances #-}
 
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 
@@ -14,10 +16,10 @@ import           Gauge
 import           Data.Char
 import           Data.Map                              (Map)
 import qualified Data.Map                              as M
-import           Data.Text                             (Text)
-import qualified Data.Text                             as T
-import qualified Data.Text.IO                          as T
-import qualified Data.Text.Lazy                        as TL
+import           Prettyprinter.Compat.Text             (Text)
+import qualified Prettyprinter.Compat.Text             as T
+import qualified Prettyprinter.Compat.Text.IO          as T
+import qualified Prettyprinter.Compat.Text.Lazy        as TL
 import           Prettyprinter
 import           Prettyprinter.Render.Text
 import           GHC.Generics

prettyprinter/prettyprinter.cabal

@@ -25,6 +25,10 @@ source-repository head
 library
     exposed-modules:
           Prettyprinter
+        , Prettyprinter.Compat.Text
+        , Prettyprinter.Compat.Text.IO
+        , Prettyprinter.Compat.Text.Lazy
+        , Prettyprinter.Compat.Text.Lazy.Builder
         , Prettyprinter.Internal
         , Prettyprinter.Internal.Debug
         , Prettyprinter.Internal.Type
@@ -196,7 +200,6 @@ benchmark faster-unsafe-text
         , prettyprinter
 
         , gauge >= 0.2
-        , text
 
     hs-source-dirs:      bench
     main-is:             FasterUnsafeText.hs

prettyprinter/src-text/Data/Text/Lazy.hs

@@ -13,3 +13,5 @@ type Text = T.Text
 length = T.length
 lines = T.lines
 toStrict = id
+pack = T.pack
+unpack = T.unpack

prettyprinter/src-text/Data/Text/Lazy/Builder.hs

@@ -7,7 +7,24 @@
 
 module Data.Text.Lazy.Builder where
 
-type Builder = String
-fromText = id
-singleton = (:[])
-toLazyText = id
+import Data.String (IsString (..))
+
+newtype Builder =  Builder (String -> String)
+
+instance IsString Builder where
+  fromString s = Builder (s ++)
+
+instance Semigroup Builder where
+  Builder a <> Builder b = Builder (a . b)
+
+instance Monoid Builder where
+  mempty = Builder id
+
+fromText :: String -> Builder
+fromText t = Builder (t ++)
+
+singleton :: Char -> Builder
+singleton c = Builder ([c] ++)
+
+toLazyText :: Builder -> String
+toLazyText (Builder b) = b ""

prettyprinter/src/Prettyprinter/Compat/Text.hs

@@ -0,0 +1,5 @@
+module Prettyprinter.Compat.Text
+  ( module Data.Text
+  ) where
+
+import Data.Text

prettyprinter/src/Prettyprinter/Compat/Text/IO.hs

@@ -0,0 +1,5 @@
+module Prettyprinter.Compat.Text.IO
+  ( module Data.Text.IO
+  ) where
+
+import Data.Text.IO

prettyprinter/src/Prettyprinter/Compat/Text/Lazy.hs

@@ -0,0 +1,5 @@
+module Prettyprinter.Compat.Text.Lazy
+  ( module Data.Text.Lazy
+  ) where
+
+import Data.Text.Lazy

prettyprinter/src/Prettyprinter/Compat/Text/Lazy/Builder.hs

@@ -0,0 +1,5 @@
+module Prettyprinter.Compat.Text.Lazy.Builder
+  ( module Data.Text.Lazy.Builder
+  ) where
+
+import Data.Text.Lazy.Builder

prettyprinter/src/Prettyprinter/Render/Text.hs

@@ -4,10 +4,8 @@
 
 -- | Render an unannotated 'SimpleDocStream' as plain 'Text'.
 module Prettyprinter.Render.Text (
-#ifdef MIN_VERSION_text
     -- * Conversion to plain 'Text'
     renderLazy, renderStrict,
-#endif
 
     -- * Render to a 'Handle'
     renderIO,