From baa086bd025ce49a75d8cc9d64d24615ab960357 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 16 Apr 2025 21:44:20 +0200
Subject: Shell interpreter for test script

Changelog: Experimental shell interpreter
---
 src/Run/Monad.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Run')

diff --git a/src/Run/Monad.hs b/src/Run/Monad.hs
index 1c96c90..e107017 100644
--- a/src/Run/Monad.hs
+++ b/src/Run/Monad.hs
@@ -109,10 +109,10 @@ finally act handler = do
     void handler
     return x
 
-forkTest :: TestRun () -> TestRun ()
+forkTest :: TestRun () -> TestRun ThreadId
 forkTest act = do
     tenv <- ask
-    void $ liftIO $ forkIO $ do
+    liftIO $ forkIO $ do
         runExceptT (flip runReaderT tenv $ fromTestRun act) >>= \case
             Left e -> atomically $ writeTVar (teFailed $ fst tenv) (Just e)
             Right () -> return ()
-- 
cgit v1.2.3