token :: (Token -> Maybe a) -> TokenParser a
token f = P.token (ppToken . ptToken) ptSourcePos (f . ptToken)
token :: (Token -> Maybe a) -> TokenParser a
token f = P.token (ppToken . ptToken) ptSourcePos (f . ptToken)
token f = P.token (ppToken . ptToken) ptSourcePos (f . ptToken)