From fde6fc29ecdf8bc41ed771cfdf90264bc2fccc38 Mon Sep 17 00:00:00 2001
From: Joscha <joscha@plugh.de>
Date: Sun, 10 Nov 2019 11:21:35 +0000
Subject: [PATCH] Fix parser not allowing comments in some places

---
 src/Mima/Assembler/Parser/RawInstruction.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Mima/Assembler/Parser/RawInstruction.hs b/src/Mima/Assembler/Parser/RawInstruction.hs
index 27cb161..7ecf2c8 100644
--- a/src/Mima/Assembler/Parser/RawInstruction.hs
+++ b/src/Mima/Assembler/Parser/RawInstruction.hs
@@ -69,7 +69,7 @@ rawInstruction = label "instruction" $
   where
     -- These assume that the parser is a lexeme
     instr  parser = lexeme whitespace *> parser
-    instr' parser = try (instr parser) <|> pure 0
+    instr' parser = try (instr parser) <|> lexeme (pure 0)
 
 rawInstructionToWord :: RawInstruction MimaAddress -> MimaWord
 rawInstructionToWord (RawLIT word) = word