From 5f892bc3cd212f362b0a8f29528b783b142da8e8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 17 Oct 2026 11:10:40 +0200
Subject: Config option to find tool path using cabal

Changelog: Added config file option to find test tool executable via cabal.
---
 src/Run/Monad.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'src/Run')

diff --git a/src/Run/Monad.hs b/src/Run/Monad.hs
index 8c772d5..d204f09 100644
--- a/src/Run/Monad.hs
+++ b/src/Run/Monad.hs
@@ -3,6 +3,7 @@ module Run.Monad (
     TestEnv(..),
     TestState(..),
     TestOptions(..), defaultTestOptions,
+    ConfigTool(..),
     Failed(..),
 
     finally,
@@ -24,6 +25,7 @@ import Data.Scientific
 import Data.Set (Set)
 import Data.Text qualified as T
 
+import Config
 import {-# SOURCE #-} GDB
 import Network.Ip
 import Output
@@ -43,6 +45,8 @@ data TestEnv = TestEnv
     { teOutput :: Output
     , teFailed :: TVar (Maybe Failed)
     , teOptions :: TestOptions
+    , teDefaultTool :: FilePath
+    , teProcTools :: [ ( ProcName, FilePath ) ]
     , teTestDir :: FilePath
     , teNextObjId :: MVar Int
     , teNextProcId :: MVar Int
@@ -60,8 +64,8 @@ data TestState = TestState
     }
 
 data TestOptions = TestOptions
-    { optDefaultTool :: String
-    , optProcTools :: [(ProcName, String)]
+    { optDefaultTool :: ConfigTool
+    , optProcTools :: [ ( ProcName, ConfigTool ) ]
     , optTestDir :: FilePath
     , optTimeout :: Scientific
     , optTcpdump :: Maybe FilePath
@@ -76,7 +80,7 @@ data TestOptions = TestOptions
 
 defaultTestOptions :: TestOptions
 defaultTestOptions = TestOptions
-    { optDefaultTool = ""
+    { optDefaultTool = ToolPath ""
     , optProcTools = []
     , optTestDir = ".test"
     , optTimeout = 1
-- 
cgit v1.2.3