From e56577e4506c7db72aef9e273cfa00592ca20829 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 17 Oct 2026 15:51:31 +0200
Subject: Do not look for config file in parent dirs in test mode

---
 src/TestMode.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/TestMode.hs')

diff --git a/src/TestMode.hs b/src/TestMode.hs
index 22481f4..220aa0b 100644
--- a/src/TestMode.hs
+++ b/src/TestMode.hs
@@ -4,12 +4,12 @@ module TestMode (
     testMode,
 ) where
 
+import Control.Monad
 import Control.Monad.Except
 import Control.Monad.Reader
 import Control.Monad.State
 
 import Data.List
-import Data.Maybe
 import Data.Text (Text)
 import Data.Text qualified as T
 import Data.Text.IO qualified as T
@@ -84,7 +84,7 @@ runTestsC tests = do
     Just LoadedModules {..} <- gets tmsModules
     mbconfig <- asks tmiConfig
     let opts = defaultTestOptions
-            { optDefaultTool = fromMaybe (ToolPath "/bin/true") $ configTool =<< mbconfig
+            { optDefaultTool = (configTool =<< mbconfig) `mplus` Just (ToolPath "/bin/true")
             , optTestDir = ".test" <> show num
             , optKeep = True
             , optKeepGoing = True
-- 
cgit v1.2.3