Bryan O'Sullivan committed b3a85fe

When unstreaming, we know the first chunk is not empty

Comments (0)

Files changed (1)


               case next s of
                 Done       -> Empty
                 Skip s'    -> outer s'
-                Yield x s' -> t `chunk` outer s''
+                Yield x s' -> t `Chunk` outer s''
                   where UC t s'' = runST fill
                         fill = do a <- unknownLength
                                   unsafeWrite a 0 x >>= inner a unknownLength s'