From cf19983d43dadeb12478ecb2785ea61ecd2d3b82 Mon Sep 17 00:00:00 2001 From: Faustin Date Date: Mon, 11 Jan 2021 22:52:05 +0900 Subject: [PATCH] Fix parsing of binop --- chapter7/poly/src/Parser.hs | 2 +- chapter7/poly_constraints/src/Parser.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/chapter7/poly/src/Parser.hs b/chapter7/poly/src/Parser.hs index f24fe6a..107439d 100644 --- a/chapter7/poly/src/Parser.hs +++ b/chapter7/poly/src/Parser.hs @@ -17,7 +17,7 @@ import Lexer import Syntax integer :: Parser Integer -integer = Tok.integer lexer +integer = Tok.natural lexer variable :: Parser Expr variable = do diff --git a/chapter7/poly_constraints/src/Parser.hs b/chapter7/poly_constraints/src/Parser.hs index f24fe6a..107439d 100644 --- a/chapter7/poly_constraints/src/Parser.hs +++ b/chapter7/poly_constraints/src/Parser.hs @@ -17,7 +17,7 @@ import Lexer import Syntax integer :: Parser Integer -integer = Tok.integer lexer +integer = Tok.natural lexer variable :: Parser Expr variable = do