From 466ba3ce75ca64a02f83ed84939cdd6e57aa8fa9 Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Fri, 22 Nov 2019 17:01:12 +0100
Subject: Actually properly parse negative numbers

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

diff --git a/Parser.hs b/Parser.hs
index b331bf0..85385ca 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) (try (char '-' >> many1 digit) <|> 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