diff --git a/src/Mima/Asm/Phase1.hs b/src/Mima/Asm/Phase1.hs index b9b8ec0..149bc66 100644 --- a/src/Mima/Asm/Phase1.hs +++ b/src/Mima/Asm/Phase1.hs @@ -347,7 +347,7 @@ comment = char ';' *> takeWhileP (Just "comment") (/= '\n') asmToken :: Parser (AsmToken Span) asmToken - = (TokenLabel <$> name) <|> + = (TokenLabel <$> name) <* (space <* char ':') <|> (TokenInstruction <$> instruction) <|> (TokenDirective <$> directive) <|> fmap (uncurry TokenComment) (withSpan comment)