text-builder-core 0.1.0.1 → 0.1.1

raw patch · 4 files changed

+102/−6 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• bench/Main.hs +2/−1
• library/TextBuilderCore.hs +84/−1
• test/Features.hs +15/−3
• text-builder-core.cabal +1/−1

@@ -17,7 +17,8 @@     ]   where     features =-      [ bench "text" $ whnf (A.toText . A.text) "фывапролдж",+      [ bench "string" $ whnf (A.toText . A.string) "фывапролдж",+        bench "text" $ whnf (A.toText . A.text) "фывапролдж",         bench "lazyText" $ whnf (A.toText . A.lazyText) "фывапролдж",         bench "char" $ whnf (A.toText . A.char) 'ф',         bench "unicodeCodepoint" $ whnf (A.toText . A.unicodeCodepoint) 1092

@@ -11,6 +11,7 @@     -- * Constructors      -- ** Text+    string,     text,     lazyText, @@ -19,6 +20,7 @@     unicodeCodepoint,      -- ** Primitives+    unsafeChars,     unsafeSeptets,     unsafeReverseSeptets,   )@@ -65,7 +67,7 @@       (forall s. TextArray.MArray s -> Int -> ST s Int)  instance IsString TextBuilder where-  fromString = text . fromString+  fromString = string  instance Show TextBuilder where   show = show . toText@@ -132,6 +134,12 @@  -- * Constructors +-- | Construct from a list of characters.+{-# INLINE string #-}+string :: String -> TextBuilder+string string =+  unsafeChars (length string) string+ -- | Strict text. {-# INLINEABLE text #-} text :: Text -> TextBuilder@@ -279,6 +287,81 @@ #endif  -- * Basic Unsafe Primitives++-- |+-- Helper for constructing from char producers a bit more efficiently than via @(text . fromString)@.+--+-- >>> unsafeChars 3 "123"+-- "123"+--+-- >>> unsafeChars 4 "123"+-- "123"+{-# INLINE unsafeChars #-}+unsafeChars ::+  -- | Maximum size of the provided list of characters.+  --+  -- __Warning__: Must be greater than or equal to the length of the list.+  Int ->+  [Char] ->+  TextBuilder+#if MIN_VERSION_text(2,0,0)+unsafeChars maxChars chars =+  TextBuilder+    (maxChars * 4)+    ( \array ->+        foldr+          ( \char next offset ->+              Utf8View.unicodeCodepoint+                (ord char)+                ( \byte -> do+                    TextArray.unsafeWrite array offset byte+                    next (succ offset)+                )+                ( \byte1 byte2 -> do+                    TextArray.unsafeWrite array offset byte1+                    TextArray.unsafeWrite array (succ offset) byte2+                    next (offset + 2)+                )+                ( \byte1 byte2 byte3 -> do+                    TextArray.unsafeWrite array offset byte1+                    TextArray.unsafeWrite array (succ offset) byte2+                    TextArray.unsafeWrite array (offset + 2) byte3+                    next (offset + 3)+                )+                ( \byte1 byte2 byte3 byte4 -> do+                    TextArray.unsafeWrite array offset byte1+                    TextArray.unsafeWrite array (succ offset) byte2+                    TextArray.unsafeWrite array (offset + 2) byte3+                    TextArray.unsafeWrite array (offset + 3) byte4+                    next (offset + 4)+                )+          )+          return+          chars+    )+#else+unsafeChars maxChars chars =+  TextBuilder+    (maxChars * 2)+    ( \array ->+        foldr+          ( \char next offset ->+              Utf16View.unicodeCodepoint+                (ord char)+                ( \byte -> do+                    TextArray.unsafeWrite array offset byte+                    next (succ offset)+                )+                ( \byte1 byte2 -> do+                    TextArray.unsafeWrite array offset byte1+                    TextArray.unsafeWrite array (succ offset) byte2+                    next (offset + 2)+                )+          )+          return+          chars+    )+#endif  -- | -- Provides a unified way to deal with the byte array regardless of the version of the @text@ library.

@@ -3,6 +3,7 @@ import Control.Monad import Data.String import qualified Data.Text as Text+import qualified Data.Text.Lazy as Text.Lazy import Test.QuickCheck.Instances () import Test.Tasty import Test.Tasty.QuickCheck@@ -23,13 +24,24 @@           isEmpty (text a) === Text.null a       ],     testGroup "toText" $-      [ mapsToMonoid toText+      [ mapsToMonoid toText,+        testProperty "Roundtrips" \textValue ->+          toText (text textValue) === textValue       ],+    testGroup "string" $+      [ mapsToMonoid string,+        testProperty "Roundtrips" \builder ->+          string (Text.unpack (toText builder)) === builder+      ],     testGroup "text" $-      [ mapsToMonoid text+      [ mapsToMonoid text,+        testProperty "Roundtrips" \builder ->+          text (toText builder) === builder       ],     testGroup "lazyText" $-      [ mapsToMonoid lazyText+      [ mapsToMonoid lazyText,+        testProperty "Roundtrips" \builder ->+          lazyText (Text.Lazy.fromStrict (toText builder)) === builder       ],     testGroup "char" $       [ mapsToMonoid char

@@ -1,6 +1,6 @@ cabal-version: 3.0 name: text-builder-core-version: 0.1.0.1+version: 0.1.1 category: Text, Builders synopsis: Internals of "text-builder" description: