Module import parsing and type check

1 files changed, 9 insertions, 2 deletions

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