diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-02-02 11:51:17 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-02-08 23:00:20 +0100 |
| commit | d5c8930e9b14c1d1953c3a25c6be503b95d67d50 (patch) | |
| tree | 8db63e839e22e091a44912768f41021f0a8501ab /src/Main.hs | |
| parent | 9251a72e7876b61ede972136570e2b81c6a8d767 (diff) | |
Module import parsing and type check
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |