trifecta: reserved(Op) shouldn't return a value
this fixes another difference between the trifecta / parsec interface.
This commit is contained in:
parent
4657427357
commit
4550c1a05a
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue