summaryrefslogtreecommitdiff
path: root/src/Run
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2023-01-02 22:57:25 +0100
committerRoman Smrž <roman.smrz@seznam.cz>2023-01-02 23:01:37 +0100
commit1a5670d0fc6ee4640fc84b5abc01bf5efd85f5ce (patch)
tree19788ed4380088aff4e6e5906933b7d75ee29738 /src/Run
parenta5f0062f48fba018e7de8b5a3c0799381e535572 (diff)
Split command line and test options
Diffstat (limited to 'src/Run')
-rw-r--r--src/Run/Monad.hs12
1 files changed, 5 insertions, 7 deletions
diff --git a/src/Run/Monad.hs b/src/Run/Monad.hs
index 77e47ea..220ac46 100644
--- a/src/Run/Monad.hs
+++ b/src/Run/Monad.hs
@@ -2,7 +2,7 @@ module Run.Monad (
TestRun(..),
TestEnv(..),
TestState(..),
- Options(..), defaultOptions,
+ TestOptions(..), defaultTestOptions,
Failed(..),
) where
@@ -28,7 +28,7 @@ newtype TestRun a = TestRun { fromTestRun :: ReaderT (TestEnv, TestState) (Excep
data TestEnv = TestEnv
{ teOutput :: Output
, teFailed :: TVar (Maybe Failed)
- , teOptions :: Options
+ , teOptions :: TestOptions
, teProcesses :: MVar [Process]
, teGDB :: Maybe (MVar GDB)
}
@@ -39,22 +39,20 @@ data TestState = TestState
, tsNodePacketLoss :: Map NodeName Scientific
}
-data Options = Options
+data TestOptions = TestOptions
{ optDefaultTool :: String
, optProcTools :: [(ProcName, String)]
, optTestDir :: FilePath
- , optVerbose :: Bool
, optTimeout :: Scientific
, optGDB :: Bool
, optForce :: Bool
}
-defaultOptions :: Options
-defaultOptions = Options
+defaultTestOptions :: TestOptions
+defaultTestOptions = TestOptions
{ optDefaultTool = ""
, optProcTools = []
, optTestDir = ".test"
- , optVerbose = False
, optTimeout = 1
, optGDB = False
, optForce = False