diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-24 22:58:17 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-24 23:01:53 +0200 |
| commit | ec493e03b0415f43968c0a04598ada3272a0f0cf (patch) | |
| tree | e59a2c2f9566d3710f4f7d81cbbe0b584ac964ae /src/Run/Monad.hs | |
| parent | 24f39540d34c819c7870adce9f363af704c7cda7 (diff) | |
Diffstat (limited to 'src/Run/Monad.hs')
| -rw-r--r-- | src/Run/Monad.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Run/Monad.hs b/src/Run/Monad.hs index efebe05..8c772d5 100644 --- a/src/Run/Monad.hs +++ b/src/Run/Monad.hs @@ -71,6 +71,7 @@ data TestOptions = TestOptions , optRepeat :: Int , optKeepGoing :: Bool , optWait :: Bool + , optHookTestResult :: TestName -> Bool -> IO () } defaultTestOptions :: TestOptions @@ -86,6 +87,7 @@ defaultTestOptions = TestOptions , optRepeat = 1 , optKeepGoing = False , optWait = False + , optHookTestResult = \_ _ -> return () } data Failed = Failed |