match :: Token -> TokenParser ()
match tok = token (\tok' -> if tok == tok' then Just () else Nothing) P.<?> ppToken tok
match :: Token -> TokenParser ()
match tok = token (\tok' -> if tok == tok' then Just () else Nothing) P.<?> ppToken tok
match tok = token (\tok' -> if tok == tok' then Just () else Nothing) P.<?> ppToken tok