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