[Haskell-cafe] How to encode *NoMatch* after consumed some input in a parser