diff options
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 |