Parse comments at beginning of file correctly

This commit is contained in:
Joscha 2019-11-10 14:34:29 +00:00
parent 5e9c50d618
commit 143a3e9a45

View file

@ -103,7 +103,8 @@ stateFromRegisters reg mem =
parseState :: Parser (MimaState, Map.Map T.Text MimaAddress) parseState :: Parser (MimaState, Map.Map T.Text MimaAddress)
parseState = do parseState = do
space lexeme $ pure ()
void $ many newlines
unresolvedRegisters <- parseRegisters unresolvedRegisters <- parseRegisters
(labels, unresolvedRawInstructions) <- parseInstructions (labels, unresolvedRawInstructions) <- parseInstructions
registers <- resolveRegisters labels unresolvedRegisters registers <- resolveRegisters labels unresolvedRegisters