trifecta: reserved(Op) shouldn't return a value

this fixes another difference between the trifecta / parsec interface.
This commit is contained in:
Benno Fünfstück 2014-08-15 14:33:40 +02:00
parent 4657427357
commit 4550c1a05a
1 changed files with 4 additions and 4 deletions

View File

@ -68,11 +68,11 @@ identStyle = IdentifierStyle
identifier :: (TokenParsing m, Monad m) => m Text
identifier = ident identStyle
reserved :: (TokenParsing m, Monad m) => String -> m Text
reserved n = pack n <$ reserve identStyle n
reserved :: (TokenParsing m, Monad m) => String -> m ()
reserved = reserve identStyle
reservedOp :: TokenParsing m => String -> m Text
reservedOp o = token $ try $ pack o <$
reservedOp :: TokenParsing m => String -> m ()
reservedOp o = token $ try $
highlight ReservedOperator (string o) <* (notFollowedBy opLetter <?> "end of " ++ o)
opStart :: CharParsing m => m Char