From 2afa7c1315f4a1b85a1ac6c45f788ed71a5900f0 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom.smeding@gmail.com>
Date: Thu, 21 Nov 2019 23:23:58 +0100
Subject: Correctly parse negative numbers

---
 Parser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Parser.hs b/Parser.hs
index 44e58cb..b331bf0 100644
--- a/Parser.hs
+++ b/Parser.hs
@@ -43,7 +43,7 @@ pVList = flip label "list" $ do
     return $ VList exs
 
 pVNum :: Parser Value
-pVNum = liftM (VNum . read) (many1 digit) <* pWhiteComment  <?> "number"
+pVNum = liftM (VNum . read) (try (char '-' >> many1 digit) <|> many1 digit) <* pWhiteComment  <?> "number"
 
 pVString :: Parser Value
 pVString = fmap VString pString
-- 
cgit v1.2.3-54-g00ecf