Minor readability tweaklet.
--HG--
extra : convert_revision : e1a42908abc75d74cdaa23f6712490aef832ec77
commit75e89c0a3e930939152407e28e2e3f0923d36324
authorBryan O'Sullivan <bos@serpentine.com>
dateSat 23 May 2009, 01:30 (17 years ago)
parent0c32368
Data/Text/Encoding/Fusion.hs+1−1
@@ -168,7 +168,7 @@ unstream (Stream next s0 len) = unsafePerformIO $ do
168168 Done -> trimUp fp n off
169169 Skip s' -> loop fp n off s'
170170 Yield x s'
171− | n == off -> realloc fp n off s' x
171+ | off == n -> realloc fp n off s' x
172172 | otherwise -> do
173173 withForeignPtr fp $ \p -> pokeByteOff p off x
174174 loop fp n (off+1) s'