Permalink
Browse files

Fix last yield in Control.Pipe.Binary.lines.

  • Loading branch information...
1 parent b185005 commit 53478eb53c385b52a47fb9f9add001b0231ae6a8 @pcapriotti committed Mar 31, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 pipes-extra/Control/Pipe/Binary.hs
@@ -105,6 +105,7 @@ lines = go B.empty
go leftover = do
mchunk <- tryAwait
case mchunk of
+ Nothing | B.null leftover -> idP
Nothing -> yield leftover >> idP
Just chunk -> split chunk leftover
split chunk leftover

0 comments on commit 53478eb

Please sign in to comment.