From 001804756eefd24bedb2ac55170e9df4827f2964 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom.smeding@gmail.com>
Date: Sun, 15 Apr 2018 10:20:03 +0200
Subject: Quieter

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

(limited to 'Parser.hs')

diff --git a/Parser.hs b/Parser.hs
index f2961ba..bc7ab24 100644
--- a/Parser.hs
+++ b/Parser.hs
@@ -25,7 +25,7 @@ parseLoop d (_:cs) = parseLoop d cs
 
 parseSimple :: Char -> Maybe Instruction
 parseSimple '+' = Just $ IAdd 1 0
-parseSimple '-' = Just $ IAdd (-1) 0
+parseSimple '-' = Just $ IAdd (negate 1) 0
 parseSimple '>' = Just $ ISlide 1
 parseSimple '<' = Just $ ISlide (-1)
 parseSimple ',' = Just $ IInput 0
-- 
cgit v1.2.3-54-g00ecf