Merge pull request #146 from EpitechPromo2027/145-top-level-typedef-m…

…akes-the-project-have-no-globals add: space consumer at start of `Program`
Jabolol · Jan 11, 2025 · 1445caf · 1445caf
2 parents 3899c43 + d0e7171
commit 1445caf
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Ast/Parser/Program.hs b/lib/Ast/Parser/Program.hs
@@ -8,6 +8,7 @@ import qualified Text.Megaparsec as M
 
 parseProgram :: String -> PU.Parser AT.Program
 parseProgram sourceFile = do
+  _ <- PU.sc
   types <- M.many $ M.try $ PU.lexeme PT.parseTypeDefinition
   exprs <- M.many PE.parseExpr
   return $ AT.Program {AT.globals = map globalExpr exprs, AT.types = map globalType types, AT.sourceFile = sourceFile}