Fix parser not allowing comments in some places

This commit is contained in:
Joscha 2019-11-10 11:21:35 +00:00
parent 2fd6aadc62
commit fde6fc29ec

View file

@ -69,7 +69,7 @@ rawInstruction = label "instruction" $
where where
-- These assume that the parser is a lexeme -- These assume that the parser is a lexeme
instr parser = lexeme whitespace *> parser 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 :: RawInstruction MimaAddress -> MimaWord
rawInstructionToWord (RawLIT word) = word rawInstructionToWord (RawLIT word) = word