Source

attoparsec / Data / Attoparsec / Combinator.hs

Diff from to

Data/Attoparsec/Combinator.hs

 
 -- | If a parser has returned a 'T.Partial' result, supply it with more
 -- input.
-feed :: Monoid i => IResult i t r -> i -> IResult i t r
+feed :: Monoid i => IResult i r -> i -> IResult i r
 feed f@(Fail _ _ _) _ = f
 feed (Partial k) d    = k d
 feed (Done t r) d     = Done (mappend t d) r