aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2021-08-22 18:35:28 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2021-08-22 18:35:28 -0700
commitd37dea9eeb788f53cdde386dba812a965539132a (patch)
tree9212fe992a76dd766b4409a2e934013d83f9de4d /src/Text
parentaabcee60022c1bc0e81505403dc43ded2e99be4e (diff)
downloadpandoc-d37dea9eeb788f53cdde386dba812a965539132a.tar.gz
PandocIO: derive MonadCatch, MonadThrow, MonadMask.
This will allow us to use withTempDir.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Class/PandocIO.hs4
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
)