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

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 01bb766..73d8c02 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -148,8 +148,8 @@ main = do
         Nothing -> queryTerminal (Fd 1)
     out <- startOutput (optVerbose opts) useColor
 
-    tests <- forM files $ \(path, mbTestName) -> do
-        Module {..} <- parseTestFile path
+    modules <- parseTestFiles $ map fst files
+    tests <- forM (zip modules $ map snd files) $ \( Module {..}, mbTestName ) -> do
         return $ map ( , moduleDefinitions ) $ case mbTestName of
             Nothing -> moduleTests
             Just name -> filter ((==name) . testName) moduleTests
-- 
cgit v1.2.3