@@ -122,7 +122,7 @@ copyLimit = 128
122fromText :: S.Text -> Builder
122fromText :: S.Text -> Builder
123fromText t@(Text arr off l)
123fromText t@(Text arr off l)
124 | S.null t = empty
124 | S.null t = empty
125− | l <= copyLimit = writeN l $ \marr o -> A.partialCopyI marr o arr off l
125+ | l <= copyLimit = writeN l $ \marr o -> A.partialCopyI marr o arr off (l+o)
126 | otherwise = flush `append` mapBuilder (t :)
126 | otherwise = flush `append` mapBuilder (t :)
127{-# INLINE [1] fromText #-}
127{-# INLINE [1] fromText #-}