diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-04-16 21:44:20 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-04-18 22:25:18 +0200 |
| commit | baa086bd025ce49a75d8cc9d64d24615ab960357 (patch) | |
| tree | f1ce6d3a889a91a3efaa43c08e26171267f6dc38 /src/Run/Monad.hs | |
| parent | f0eed671c65a31eeb34ece14547bea79eb753728 (diff) | |
Shell interpreter for test script
Changelog: Experimental shell interpreter
Diffstat (limited to 'src/Run/Monad.hs')
| -rw-r--r-- | src/Run/Monad.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 () |