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