From 2b6df377efe24f882d572a45e5f45239c9b01a84 Mon Sep 17 00:00:00 2001 From: mrkkrp Date: Fri, 16 Oct 2015 00:01:15 +0600 Subject: [PATCH] =?UTF-8?q?a=20minor=20cosmetic=20change=20in=20=E2=80=98t?= =?UTF-8?q?ests/Expr.hs=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- tests/Expr.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/Expr.hs b/tests/Expr.hs index aac7a5b..54048ba 100644 --- a/tests/Expr.hs +++ b/tests/Expr.hs @@ -151,7 +151,7 @@ integer = lexeme (read <$> some digitChar "integer") -- representation. expr :: MonadParsec s m Char => m Node -expr = makeExprParser term table "expression" +expr = makeExprParser term table term :: MonadParsec s m Char => m Node term = parens expr <|> (Val <$> integer) "term"