Skip to content
Browse files

Properly terminate the parser

  • Loading branch information...
1 parent 6f44f07 commit aef79107f59790d7767ffc2e6e62d8c3dffa486f @gregorycollins committed May 27, 2010
Showing with 2 additions and 2 deletions.
  1. +1 −1 attoparsec-iteratee.cabal
  2. +1 −1 src/Data/Attoparsec/Iteratee.hs
View
2 attoparsec-iteratee.cabal
@@ -1,5 +1,5 @@
name: attoparsec-iteratee
-version: 0.1
+version: 0.1.1
synopsis: An adapter to convert attoparsec Parsers into blazing-fast Iteratees
description:
An adapter to convert attoparsec Parsers into blazing-fast Iteratees
View
2 src/Data/Attoparsec/Iteratee.hs
@@ -26,7 +26,7 @@ parserToIteratee p = IterateeG $ f (\s -> parse p s)
(ByteString -> Atto.Result a)
-> Stream
-> m (IterV m a)
- f k (EOF Nothing) = finalChunk $ k S.empty
+ f k (EOF Nothing) = finalChunk $ feed (k S.empty) S.empty
f _ (EOF (Just e)) = reportError e
f k (Chunk s) = let s' = S.concat $ L.toChunks $ fromWrap s
in if S.null s'

0 comments on commit aef7910

Please sign in to comment.
Something went wrong with that request. Please try again.