From 4d7cdc467163601fd819199a69860616a9778040 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 27 Aug 2021 22:27:01 -0700
Subject: Image: Generalize svgToPng to MonadIO.

---
 src/Text/Pandoc/Image.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/Text/Pandoc/Image.hs b/src/Text/Pandoc/Image.hs
index 468edf2c2..cbc26c981 100644
--- a/src/Text/Pandoc/Image.hs
+++ b/src/Text/Pandoc/Image.hs
@@ -11,22 +11,23 @@ Portability : portable
 Functions for converting images.
 -}
 module Text.Pandoc.Image ( svgToPng ) where
-import Text.Pandoc.Options (WriterOptions(..))
 import Text.Pandoc.Process (pipeProcess)
 import qualified Data.ByteString.Lazy as L
 import System.Exit
 import Data.Text (Text)
 import Text.Pandoc.Shared (tshow)
 import qualified Control.Exception as E
+import Control.Monad.IO.Class (MonadIO(liftIO))
 
 -- | Convert svg image to png. rsvg-convert
 -- is used and must be available on the path.
-svgToPng :: Int           -- ^ DPI
+svgToPng :: MonadIO m
+         => Int           -- ^ DPI
          -> L.ByteString  -- ^ Input image as bytestring
-         -> IO (Either Text L.ByteString)
+         -> m (Either Text L.ByteString)
 svgToPng dpi bs = do
   let dpi' = show dpi
-  E.catch
+  liftIO $ E.catch
        (do (exit, out) <- pipeProcess Nothing "rsvg-convert"
                           ["-f","png","-a","--dpi-x",dpi',"--dpi-y",dpi']
                           bs
-- 
cgit v1.2.3