Garmelon/mima-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make TokenLabel a declaration

Browse source
This commit is contained in:
I-Al-Istannen 2020-03-31 15:27:00 +02:00
parent 7ee414bbb3
commit 300ef6e0c0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Mima/Asm/Phase1.hs
View file

@ -347,7 +347,7 @@ comment = char ';' *> takeWhileP (Just "comment") (/= '\n')
asmToken :: Parser (AsmToken Span) asmToken :: Parser (AsmToken Span)
asmToken asmToken
= (TokenLabel <$> name) <|> = (TokenLabel <$> name) <* (space <* char ':') <|>
(TokenInstruction <$> instruction) <|> (TokenInstruction <$> instruction) <|>
(TokenDirective <$> directive) <|> (TokenDirective <$> directive) <|>
fmap (uncurry TokenComment) (withSpan comment) fmap (uncurry TokenComment) (withSpan comment)