Add textJsonString

CHANGELOG.md

@@ -9,6 +9,7 @@ to ease the migration process.
 
 * Add `Data.Bytes.Builder.Unsafe.pasteUtf8TextJson#` for users who need
   to perform JSON string encoding without using a builder.
+* Add `Data.Bytes.Builder.textJsonString` when building with text 2.0+
 
 ## 0.3.14.0 -- 2023-07-20
 

src/Data/Bytes/Builder.hs

@@ -32,6 +32,7 @@ module Data.Bytes.Builder
   , shortByteString
 #if MIN_VERSION_text(2,0,0)
   , textUtf8
+  , textJsonString
 #endif
   , shortTextUtf8
   , shortTextJsonString
@@ -856,6 +857,12 @@ shortTextJsonString a =
       !(I# len) = PM.sizeofByteArray (ByteArray ba)
    in slicedUtf8TextJson ba 0# len
 
+#if MIN_VERSION_text(2,0,0)
+textJsonString :: Text -> Builder
+{-# inline textJsonString #-}
+textJsonString (I.Text (A.ByteArray ba) (I# off) (I# len)) = slicedUtf8TextJson ba off len
+#endif
+
 -- | Encodes an unsigned 64-bit integer as decimal.
 -- This encoding never starts with a zero unless the
 -- argument was zero.

src/Data/Bytes/Builder/Unsafe.hs

@@ -321,7 +321,7 @@ commitDistance target !n (Mutable buf len cs) =
 -- * Precondition: The slice of the byte argument is UTF-8 encoded text.
 -- * Precondition: There is enough space in the buffer for the result
 --   to be written to. A simple way to ensure enough space is to allocate
---   @3N + 2@ bytes, where N is the length of the argument. However, the
+--   @6N + 2@ bytes, where N is the length of the argument. However, the
 --   caller may use clever heuristics to find a lower upper bound.
 -- * Result: The next offset in the destination buffer
 pasteUtf8TextJson# ::