Accept various builtin types in type expressions

1 files changed, 4 insertions, 4 deletions

diff --git a/src/Run.hs b/src/Run.hs
index 27dc756..631d579 100644
--- a/src/Run.hs
+++ b/src/Run.hs
@@ -6,7 +6,7 @@ module Run (
     runTest,
 
     LoadedModules(..),
-    loadModules,
+    loadModules',
     evalGlobalDefs,
 
     TestFilter(..),
@@ -204,9 +204,9 @@ data LoadedModules = LoadedModules
     , lmGlobalDefs :: GlobalDefs
     }
 
-loadModules :: [ ( FilePath, Maybe Text ) ] -> IO (Either CustomTestError LoadedModules)
-loadModules files = do
-    parseTestFiles (map fst files) >>= \case
+loadModules' :: [ SomePrimType ] -> [ ( FilePath, Maybe Text ) ] -> IO (Either CustomTestError LoadedModules)
+loadModules' builtinTypes files = do
+    parseTestFiles builtinTypes (map fst files) >>= \case
         Right ( modules, allModules ) -> return $ do
             lmModules <- forM (zip files modules) $ \( ( path, tsel ), m ) -> do
                 tests <- case tsel of