:: Ord a => [a] -> [a] -package:singletons -package:safe -package:basement -package:witherable -package:containers -package:extra is:exact -package:errors -package:lifted-base package:parsers
Take a parser that may consume input, and on failure, go back to where
we started and fail as if we didn't consume input.