parseStr :: Token -> Text -> Parser Token
parseStr t str = AP.string str *> return t
parseStr :: Token -> Text -> Parser Token
parseStr t str = AP.string str *> return t
parseStr t str = AP.string str *> return t