diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2023-04-26 20:12:50 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2023-04-26 20:55:57 +0200 |
| commit | 9bf4a7b3e3c44ef8cc255b27d2c6d74af95f73ce (patch) | |
| tree | 0f3efebf7d3b26b04953bd49dea013b8597ca640 /src/Run/Monad.hs | |
| parent | dab23fd7890ea2c27096015bb49ec526fafa14c7 (diff) | |
Use link objects for disconnect commands
Diffstat (limited to 'src/Run/Monad.hs')
| -rw-r--r-- | src/Run/Monad.hs | 3 |
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 |