on master help sign in
Fix nasty thinko exposed on a MacBook

--HG-- extra : convert_revision : 4b95ec6ecf9bd4331d3c853e4a70b221aa0cd369

commit9f53a939d29baf39e7b34ee8233b9659bada6caf authorBryan O'Sullivan <bos@serpentine.com> dateSat 28 Feb 2009, 01:18 (18 years ago) parent8fc24cc
1 file changed+1−1
Data/Text/Fusion.hs+1−1
Data/Text/Fusion.hs+1−1
@@ -406,7 +406,7 @@ reverse (Stream next s len0)
406406 | otherwise = Text arr off' len'
407407 where
408408 len0' = max len0 4
409− (arr, (off', len')) = A.run2 (A.unsafeNew len0 >>= loop s (len0'-1) len0')
409+ (arr, (off', len')) = A.run2 (A.unsafeNew len0' >>= loop s (len0'-1) len0')
410410 loop !s0 !i !len marr =
411411 case next s0 of
412412 Done -> return (marr, (j, len-j))