added StrictTextBuilder and LazyTextBuilder aliases

haskell · Apr 14, 2024 · e9a9bb6 · e9a9bb6
1 parent 19725eb
commit e9a9bb6
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 1 deletion.
diff --git a/src/Data/Text/Encoding.hs b/src/Data/Text/Encoding.hs
@@ -52,6 +52,7 @@ module Data.Text.Encoding
     , Utf8State
     , startUtf8State
     , StrictBuilder
+    , StrictTextBuilder
     , strictBuilderToText
     , textToStrictBuilder
 

diff --git a/src/Data/Text/Internal/Builder.hs b/src/Data/Text/Internal/Builder.hs
@@ -39,6 +39,7 @@ module Data.Text.Internal.Builder
    ( -- * Public API
      -- ** The Builder type
      Builder
+   , LazyTextBuilder
    , toLazyText
    , toLazyTextWith
 
@@ -96,6 +97,8 @@ newtype Builder = Builder {
                 -> ST s [S.Text]
    }
 
+type LazyTextBuilder = Builder
+
 instance Semigroup Builder where
    (<>) = append
    {-# INLINE (<>) #-}

diff --git a/src/Data/Text/Internal/Encoding.hs b/src/Data/Text/Internal/Encoding.hs
@@ -27,6 +27,7 @@ module Data.Text.Internal.Encoding
   , Utf8State
   , startUtf8State
   , StrictBuilder()
+  , StrictTextBuilder
   , strictBuilderToText
   , textToStrictBuilder
 
@@ -50,7 +51,7 @@ import Data.Text.Encoding.Error (OnDecodeError)
 import Data.Text.Internal (Text(..))
 import Data.Text.Internal.Encoding.Utf8
   (DecoderState, utf8AcceptState, utf8RejectState, updateDecoderState)
-import Data.Text.Internal.StrictBuilder (StrictBuilder)
+import Data.Text.Internal.StrictBuilder (StrictBuilder, StrictTextBuilder)
 import qualified Data.ByteString as B
 import qualified Data.ByteString.Internal as BI
 import qualified Data.ByteString.Short.Internal as SBS

diff --git a/src/Data/Text/Internal/StrictBuilder.hs b/src/Data/Text/Internal/StrictBuilder.hs
@@ -15,6 +15,7 @@
 
 module Data.Text.Internal.StrictBuilder
   ( StrictBuilder(..)
+  , StrictTextBuilder
   , toText
   , fromChar
   , fromText
@@ -49,6 +50,8 @@ data StrictBuilder = StrictBuilder
   , sbWrite :: forall s. A.MArray s -> Int -> ST s ()
   }
 
+type StrictTextBuilder = StrictBuilder
+
 -- | Use 'StrictBuilder' to build 'Text'.
 --
 -- @since 2.0.2

diff --git a/src/Data/Text/Lazy/Builder.hs b/src/Data/Text/Lazy/Builder.hs
@@ -39,6 +39,7 @@
 module Data.Text.Lazy.Builder
    ( -- * The Builder type
      Builder
+   , LazyTextBuilder
    , toLazyText
    , toLazyTextWith