summaryrefslogtreecommitdiff
path: root/src/Run
diff options
context:
space:
mode:
Diffstat (limited to 'src/Run')
-rw-r--r--src/Run/Monad.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Run/Monad.hs b/src/Run/Monad.hs
index 1036749..037f585 100644
--- a/src/Run/Monad.hs
+++ b/src/Run/Monad.hs
@@ -97,6 +97,9 @@ instance MonadEval TestRun where
instance MonadOutput TestRun where
getOutput = asks $ teOutput . fst
+instance MonadPIO TestRun where
+ postpone = liftIO
+
finally :: MonadError e m => m a -> m b -> m a
finally act handler = do