diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-08-22 18:35:28 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-08-22 18:35:28 -0700 |
| commit | d37dea9eeb788f53cdde386dba812a965539132a (patch) | |
| tree | 9212fe992a76dd766b4409a2e934013d83f9de4d /src/Text/Pandoc/Class/PandocIO.hs | |
| parent | aabcee60022c1bc0e81505403dc43ded2e99be4e (diff) | |
| download | pandoc-d37dea9eeb788f53cdde386dba812a965539132a.tar.gz | |
PandocIO: derive MonadCatch, MonadThrow, MonadMask.
This will allow us to use withTempDir.
Diffstat (limited to 'src/Text/Pandoc/Class/PandocIO.hs')
| -rw-r--r-- | src/Text/Pandoc/Class/PandocIO.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Class/PandocIO.hs b/src/Text/Pandoc/Class/PandocIO.hs index 63cb94155..0e5247ff9 100644 --- a/src/Text/Pandoc/Class/PandocIO.hs +++ b/src/Text/Pandoc/Class/PandocIO.hs @@ -29,6 +29,7 @@ import Text.Pandoc.Class.PandocMonad import Text.Pandoc.Definition import Text.Pandoc.Error import qualified Text.Pandoc.Class.IO as IO +import Control.Monad.Catch (MonadCatch, MonadMask, MonadThrow) -- | Evaluate a 'PandocIO' operation. runIO :: PandocIO a -> IO (Either PandocError a) @@ -45,6 +46,9 @@ newtype PandocIO a = PandocIO { , Functor , Applicative , Monad + , MonadCatch + , MonadMask + , MonadThrow , MonadError PandocError ) |