@@ -168,7 +168,7 @@ unstream (Stream next s0 len) = unsafePerformIO $ do
168 Done -> trimUp fp n off
168 Done -> trimUp fp n off
169 Skip s' -> loop fp n off s'
169 Skip s' -> loop fp n off s'
170 Yield x s'
170 Yield x s'
171− | n == off -> realloc fp n off s' x
171+ | off == n -> realloc fp n off s' x
172 | otherwise -> do
172 | otherwise -> do
173 withForeignPtr fp $ \p -> pokeByteOff p off x
173 withForeignPtr fp $ \p -> pokeByteOff p off x
174 loop fp n (off+1) s'
174 loop fp n (off+1) s'