@@ -40,6 +40,7 @@ import System.FilePath (takeExtension, takeDirectory, (</>))
4040import Data.Char (toLower, isAscii, isAlphaNum)
4141import Codec.Compression.GZip as Gzip
4242import qualified Data.ByteString.Lazy as L
43+import Control.Monad.Trans (MonadIO(..))
4344import Text.Pandoc.Shared (renderTags', err, fetchItem', warn, trim)
4445import Text.Pandoc.MediaBag (MediaBag)
4546import Text.Pandoc.MIME (MimeType)
@@ -171,8 +172,8 @@ getDataURI media sourceURL mimetype src = do
171172
172173-- | Convert HTML into self-contained HTML, incorporating images,
173174-- scripts, and CSS using data: URIs.
174−makeSelfContained :: WriterOptions -> String -> IO String
175−makeSelfContained opts inp = do
175+makeSelfContained :: MonadIO m => WriterOptions -> String -> m String
176+makeSelfContained opts inp = liftIO $ do
176177 let tags = parseTags inp
177178 out' <- mapM (convertTag (writerMediaBag opts) (writerSourceURL opts)) tags
178179 return $ renderTags' out'