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/Test.hs | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'src/Test.hs')

diff --git a/src/Test.hs b/src/Test.hs
index 3db7919..01b2d95 100644
--- a/src/Test.hs
+++ b/src/Test.hs
@@ -1,5 +1,5 @@
 module Test (
-    Module(..),
+    Module(..), ModuleName(..), textModuleName,
     Test(..),
     TestStep(..),
     TestBlock(..),
@@ -53,11 +53,18 @@ import {-# SOURCE #-} Process
 import Util
 
 data Module = Module
-    { moduleName :: [ Text ]
+    { moduleName :: ModuleName
     , moduleTests :: [ Test ]
     , moduleDefinitions :: [ ( VarName, SomeExpr ) ]
+    , moduleExports :: [ VarName ]
     }
 
+newtype ModuleName = ModuleName [ Text ]
+    deriving (Eq, Ord)
+
+textModuleName :: ModuleName -> Text
+textModuleName (ModuleName parts) = T.intercalate "." parts
+
 data Test = Test
     { testName :: Text
     , testSteps :: Expr TestBlock
-- 
cgit v1.2.3