From 813d8914681d845456a9d62d5441a4db8053148e Mon Sep 17 00:00:00 2001
From: I-Al-Istannen <i-al-istannen@users.noreply.github.com>
Date: Tue, 31 Mar 2020 15:31:36 +0200
Subject: [PATCH] Do not partially parse a file

---
 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 149bc66..877f818 100644
--- a/src/Mima/Asm/Phase1.hs
+++ b/src/Mima/Asm/Phase1.hs
@@ -353,7 +353,7 @@ asmToken
     fmap (uncurry TokenComment) (withSpan comment)
 
 parsePhase1 :: Parser Phase1
-parsePhase1 = many (space *> asmToken)
+parsePhase1 = many (space *> asmToken) <* eof
 
 -- | A small helper for visualizing the parse.
 --