Add hook to TestOptions to get result of each testHEADmaster

1 files changed, 5 insertions, 2 deletions

diff --git a/src/Run.hs b/src/Run.hs
index a646342..a253e51 100644
--- a/src/Run.hs
+++ b/src/Run.hs
@@ -156,8 +156,8 @@ runTest out opts gdefs test = do
     [] <- readMVar procVar
 
     failed <- atomically $ readTVar (teFailed tenv)
-    case (res, failed) of
-        (Right (), Nothing) -> do
+    fres <- case ( res, failed ) of
+        ( Right (), Nothing ) -> do
             when (not $ optKeep opts) $ removeDirectoryRecursive testDir
             return True
         _ -> do
@@ -165,6 +165,9 @@ runTest out opts gdefs test = do
                 void $ outLine OutputGlobalError Nothing $ "Test ‘" <> textTestName (testName test) <> "’ failed."
             return False
 
+    (optHookTestResult opts) (testName test) fres
+    return fres
+
 
 data LoadedModules = LoadedModules
     { lmModules :: [ Module ]