summaryrefslogtreecommitdiff
path: root/src/Run.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Run.hs')
-rw-r--r--src/Run.hs8
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