on master help sign in
Fix nasty thinko exposed on a MacBook
9f53a93Bryan O'Sullivan
Data/Text/Fusion.hs+1−1
@@ -406,7 +406,7 @@ reverse (Stream next s len0)
406 | otherwise = Text arr off' len'
406 | otherwise = Text arr off' len'
407 where
407 where
408 len0' = max len0 4
408 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')
410 loop !s0 !i !len marr =
410 loop !s0 !i !len marr =
411 case next s0 of
411 case next s0 of
412 Done -> return (marr, (j, len-j))
412 Done -> return (marr, (j, len-j))