From 3f84a08a4313b496233c528adb97f2ceb654bd0a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 7 May 2024 22:59:30 +0200
Subject: Run multiple whole test sequences with repeat option

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 113f54b..eb34c62 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -136,5 +136,5 @@ main = do
             Just name -> filter ((==name) . testName) fileTests
 
     ok <- allM (runTest out $ optTest opts) $
-        concatMap (replicate (optRepeat opts)) $ concat tests
+        concat $ replicate (optRepeat opts) $ concat tests
     when (not ok) exitFailure
-- 
cgit v1.2.3