Parse negative numbers

2023-09-30 04:35:15 -05:00 · 2023-09-30 04:35:15 -05:00 · d40467bc00
parent d14c5ace00
commit d40467bc00
2 changed files with 2 additions and 2 deletions
--- a/example/1.hear
+++ b/example/1.hear
@ -1 +1 @@
-5*3+2
+5*3-2+-4-4
--- a/src/Main/Parser/Megaparsec.hs
+++ b/src/Main/Parser/Megaparsec.hs
@ -23,7 +23,7 @@ symbol :: Text -> Parser Text
 symbol = L.symbol C.space

 int :: Parser Int
-int = lexeme L.decimal
+int = lexeme $ L.signed (return ()) L.decimal

 term :: Parser Expr
 term = Lit <$> int