Minor tweak, suggested by Ian
--HG--
extra : convert_revision : 66c7d2534bc1ea789a010cefa7316e597c08ac16
commit17f009cce0b6cb5b85ab5128885fb96fde54740a
authorBryan O'Sullivan <bos@serpentine.com>
dateFri 10 Sep 2010, 03:21 (16 years ago)
parentf8d6fe2
Data/Text.hs+1−1
@@ -346,7 +346,7 @@ append (Text arr1 off1 len1) (Text arr2 off2 len2) = Text (A.run x) 0 len
346346 x = do
347347 arr <- A.unsafeNew len
348348 A.copyI arr 0 arr1 off1 len1
349− A.copyI arr len1 arr2 off2 (len1+len2)
349+ A.copyI arr len1 arr2 off2 len
350350 return arr
351351{-# INLINE append #-}
352352