Fix off-by-one error
--HG--
extra : convert_revision : f7f0d59a5bd0ba7a1faff6049d8dd59c6d19bb84
commit7f16bfadcf24be67b725d15b6c26b0293febf3aa
authorBryan O'Sullivan <bos@serpentine.com>
dateMon 16 Aug 2010, 01:25 (16 years ago)
parentd491f88
Data/Text/Lazy/Builder.hs+1−1
@@ -122,7 +122,7 @@ copyLimit = 128
122122fromText :: S.Text -> Builder
123123fromText t@(Text arr off l)
124124 | 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)
126126 | otherwise = flush `append` mapBuilder (t :)
127127{-# INLINE [1] fromText #-}
128128