Commits

Bryan O'Sullivan committed b3a85fe

When unstreaming, we know the first chunk is not empty

  • Participants
  • Parent commits b4a194d

Comments (0)

Files changed (1)

File Data/Text/Lazy/Fusion.hs

               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 <- A.new unknownLength
                                   unsafeWrite a 0 x >>= inner a unknownLength s'