Do not look for config file in parent dirs in test mode

1 files changed, 2 insertions, 2 deletions

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