Quieter

1 files changed, 1 insertions, 1 deletions

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