Fix fencepost error
--HG--
extra : convert_revision : f4613e13c3f335382119575d91c7590fbc73bcae
commita2c3f3690b1a1eaeff885fb78bf59c864cedbce9
authorBryan O'Sullivan <bos@serpentine.com>
dateWed 28 Jan 2009, 07:02 (18 years ago)
parent40997b2
Data/Text/Fusion.hs+1−1
@@ -138,7 +138,7 @@ unstream (Stream next0 s0 len) = Text (fst a) 0 (snd a)
138138 where
139139 a = runST (A.unsafeNew len >>= (\arr -> loop arr 0 len s0))
140140 loop arr !i !top !s
141− | i + 1 > top = case next0 s of
141+ | i + 1 >= top = case next0 s of
142142 Done -> liftM2 (,) (A.unsafeFreeze arr) (return i)
143143 _ -> do
144144 arr' <- A.unsafeNew (top*2)