From a540e1711a4c19c4319000a0719af80c6164349e Mon Sep 17 00:00:00 2001
From: I-Al-Istannen <i-al-istannen@users.noreply.github.com>
Date: Tue, 31 Mar 2020 15:04:12 +0200
Subject: [PATCH] Add a comment and asmToken parser

---
 src/Mima/Asm/Phase1.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/Mima/Asm/Phase1.hs b/src/Mima/Asm/Phase1.hs
index c2c3c03..4837b6c 100644
--- a/src/Mima/Asm/Phase1.hs
+++ b/src/Mima/Asm/Phase1.hs
@@ -342,6 +342,16 @@ directive =
 
       pure $ f outerSpan regSpan metaName jsonValue
 
+comment :: Parser T.Text
+comment = char ';' *> takeWhileP (Just "comment") (/= '\n')
+
+asmToken :: Parser (AsmToken Span)
+asmToken
+  = (TokenLabel <$> name)                          <|>
+    (TokenInstruction <$> instruction)             <|>
+    (TokenDirective <$> directive)                 <|>
+    fmap (uncurry TokenComment) (withSpan comment)
+
 parsePhase1 :: Parser Phase1
 parsePhase1 = undefined