-- | Tell a 'Parser' that there is no more input. This passes 'empty'
-- to a 'Partial' parser, otherwise returns the parser unchanged.
feedEndOfInput :: Parser a -> Parser a
feedEndOfInput (Partial k)     = k B.empty
feedEndOfInput :: Parser a -> Parser a
feedEndOfInput (Partial k)     = k B.empty
feedEndOfInput (Partial k)     = k B.empty