From d40467bc00d7a58cb30e128b582941f496ccd51b Mon Sep 17 00:00:00 2001
From: sudoer777 <git@sudoer.ch>
Date: Sat, 30 Sep 2023 04:35:15 -0500
Subject: [PATCH] Parse negative numbers

---
 example/1.hear                | 2 +-
 src/Main/Parser/Megaparsec.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/example/1.hear b/example/1.hear
index 0f9d1ef..a8482c2 100644
--- a/example/1.hear
+++ b/example/1.hear
@@ -1 +1 @@
-5*3+2
\ No newline at end of file
+5*3-2+-4-4
\ No newline at end of file
diff --git a/src/Main/Parser/Megaparsec.hs b/src/Main/Parser/Megaparsec.hs
index e78c623..a82e02a 100644
--- 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