From 20a510e824a52526d9b5e48497dbf52df4c2d7f6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Thu, 17 Nov 2022 20:23:56 +0100 Subject: Parse all input files before running any tests --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Main.hs b/src/Main.hs index e7d451d..7671aa3 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -424,5 +424,5 @@ main = do optDefaultTool opts `seq` return () out <- startOutput $ optVerbose opts - ok <- flip allM files $ allM (runTest out opts) <=< parseTestFile + ok <- allM (runTest out opts) . concat =<< mapM parseTestFile files when (not ok) exitFailure -- cgit v1.2.3