From d5c8930e9b14c1d1953c3a25c6be503b95d67d50 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 2 Feb 2025 11:51:17 +0100
Subject: Module import parsing and type check

---
 src/Parser/Expr.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/Parser/Expr.hs')

diff --git a/src/Parser/Expr.hs b/src/Parser/Expr.hs
index d8d96eb..41790bb 100644
--- a/src/Parser/Expr.hs
+++ b/src/Parser/Expr.hs
@@ -1,5 +1,6 @@
 module Parser.Expr (
     identifier,
+    parseModuleName,
 
     varName,
     newVarName,
@@ -58,6 +59,11 @@ identifier = label "identifier" $ do
             ]
         return ident
 
+parseModuleName :: TestParser ModuleName
+parseModuleName = do
+    x <- identifier
+    ModuleName . (x :) <$> many (symbol "." >> identifier)
+
 varName :: TestParser VarName
 varName = label "variable name" $ VarName <$> identifier
 
-- 
cgit v1.2.3