iteratee 0.8.4.1 → 0.8.4.2

raw patch · 2 files changed

+2/−4 lines, 2 files

Files

• iteratee.cabal +1/−1
• src/Data/Iteratee/ListLike.hs +1/−3

@@ -1,5 +1,5 @@ name:          iteratee-version:       0.8.4.1+version:       0.8.4.2 synopsis:      Iteratee-based I/O description:   The Iteratee monad provides strict, safe, and functional I/O. In addition

@@ -221,10 +221,8 @@ roll t d | t > d  = liftI step   where     step (Chunk vec)-      | LL.length vec >= d =-          idone (LL.singleton $ LL.take t vec) (Chunk $ LL.drop d vec)       | LL.length vec >= t =-          idone (LL.singleton $ LL.take t vec) mempty <* drop (d-LL.length vec)+          idone (LL.singleton $ LL.take t vec) (Chunk $ LL.drop d vec)       | LL.null vec        = liftI step       | otherwise          = liftI (step' vec)     step stream            = idone LL.empty stream