mrkkrp/megaparsec
1
1
Fork 0
mirror of https://github.com/mrkkrp/megaparsec.git synced 2024-12-02 07:50:22 +03:00
Code Issues Projects Releases Wiki Activity

A cosmetic whim

Browse Source
This commit is contained in:
mrkkrp 2017-08-08 11:34:31 +07:00
parent 3e4733cca2
commit 077094cc40
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/Text/Megaparsec/ExprSpec.hs
View File

@ -14,7 +14,7 @@ import Text.Megaparsec.Char
import Text.Megaparsec.Expr
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>), (<*), (<*>), (*>), pure)
import Control.Applicative
#endif
spec :: Spec
@ -149,11 +149,11 @@ term = parens expr <|> (Val <$> integer) <?> "term"
table :: [[Operator Parser Node]]
table =
[ [ Prefix (symbol "-" *> pure Neg)
, Postfix (symbol "!" *> pure Fac)
, InfixN (symbol "%" *> pure Mod) ]
, [ InfixR (symbol "^" *> pure Exp) ]
, [ InfixL (symbol "*" *> pure Pro)
, InfixL (symbol "/" *> pure Div) ]
, [ InfixL (symbol "+" *> pure Sum)
, InfixL (symbol "-" *> pure Sub)] ]
[ [ Prefix (Neg <$ symbol "-")
, Postfix (Fac <$ symbol "!")
, InfixN (Mod <$ symbol "%") ]
, [ InfixR (Exp <$ symbol "^") ]
, [ InfixL (Pro <$ symbol "*")
, InfixL (Div <$ symbol "/") ]
, [ InfixL (Sum <$ symbol "+")
, InfixL (Sub <$ symbol "-")] ]