From ec493e03b0415f43968c0a04598ada3272a0f0cf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 24 Aug 2026 22:58:17 +0200
Subject: Add hook to TestOptions to get result of each test

---
 src/Run/Monad.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Run')

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
-- 
cgit v1.2.3