When unstreaming, we know the first chunk is not empty
commitfd92012c64f586aef3fd9bea4dd0f1ddd17699ed
authorBryan O'Sullivan <bos@serpentine.com>
dateWed 24 Oct 2012, 12:17 (14 years ago)
parentb6e6ac5
Data/Text/Lazy/Fusion.hs+1−1
@@ -61,7 +61,7 @@ unstreamChunks !chunkSize (Stream next s0 len0)
6161 case next s of
6262 Done -> Empty
6363 Skip s' -> outer s'
64− Yield x s' -> t `chunk` outer s''
64+ Yield x s' -> t `Chunk` outer s''
6565 where UC t s'' = runST fill
6666 fill = do a <- A.new unknownLength
6767 unsafeWrite a 0 x >>= inner a unknownLength s'