a minor cosmetic change in ‘tests/Expr.hs’

This commit is contained in:
mrkkrp 2015-10-16 00:01:15 +06:00
parent 79ceb7962f
commit 2b6df377ef

View File

@ -151,7 +151,7 @@ integer = lexeme (read <$> some digitChar <?> "integer")
-- representation. -- representation.
expr :: MonadParsec s m Char => m Node expr :: MonadParsec s m Char => m Node
expr = makeExprParser term table <?> "expression" expr = makeExprParser term table
term :: MonadParsec s m Char => m Node term :: MonadParsec s m Char => m Node
term = parens expr <|> (Val <$> integer) <?> "term" term = parens expr <|> (Val <$> integer) <?> "term"