Commits

Bryan O'Sullivan committed de2df73

Minor readability tweaklet.

Comments (0)

Files changed (1)

Data/Text/Encoding/Fusion.hs

           Done -> trimUp fp n off
           Skip s' -> loop fp n off s'
           Yield x s'
-              | n == off -> realloc fp n off s' x
+              | off == n -> realloc fp n off s' x
               | otherwise -> do
             withForeignPtr fp $ \p -> pokeByteOff p off x
             loop fp n (off+1) s'