diff options
Diffstat (limited to 'Parser.hs')
-rw-r--r-- | Parser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |