From 300ef6e0c088ff1655cec881920ac21671dec028 Mon Sep 17 00:00:00 2001
From: I-Al-Istannen <i-al-istannen@users.noreply.github.com>
Date: Tue, 31 Mar 2020 15:27:00 +0200
Subject: [PATCH] Make TokenLabel a declaration

---
 src/Mima/Asm/Phase1.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)