@@ -180,6 +180,7 @@ import Text.Pandoc.Options
180180import Text.Pandoc.Shared (safeRead, warn, mapLeft, pandocVersion)
181181import Text.Pandoc.MediaBag (MediaBag)
182182import Text.Pandoc.Error
183+import Text.Pandoc.Class (runIOorExplode)
183184import Data.Aeson
184185import qualified Data.ByteString.Lazy as BL
185186import Data.List (intercalate)
@@ -270,17 +271,23 @@ writers :: [ ( String, Writer ) ]
270271writers = [
271272 ("native" , PureStringWriter writeNative)
272273 ,("json" , PureStringWriter writeJSON)
273− ,("docx" , IOByteStringWriter writeDocx)
274− ,("odt" , IOByteStringWriter writeODT)
275− ,("epub" , IOByteStringWriter $ \o ->
276− writeEPUB o{ writerEpubVersion = Just EPUB2 })
277− ,("epub3" , IOByteStringWriter $ \o ->
278− writeEPUB o{ writerEpubVersion = Just EPUB3 })
279− ,("fb2" , IOStringWriter writeFB2)
274+ ,("docx" , IOByteStringWriter $ \o doc ->
275+ runIOorExplode $ writeDocx o doc)
276+ ,("odt" , IOByteStringWriter $ \o doc ->
277+ runIOorExplode $ writeODT o doc)
278+ ,("epub" , IOByteStringWriter $ \o doc ->
279+ runIOorExplode $
280+ writeEPUB o{ writerEpubVersion = Just EPUB2 } doc)
281+ ,("epub3" , IOByteStringWriter $ \o doc ->
282+ runIOorExplode $
283+ writeEPUB o{ writerEpubVersion = Just EPUB3 } doc)
284+ ,("fb2" , IOStringWriter $ \o doc ->
285+ runIOorExplode $ writeFB2 o doc)
280286 ,("html" , PureStringWriter writeHtmlString)
281287 ,("html5" , PureStringWriter $ \o ->
282288 writeHtmlString o{ writerHtml5 = True })
283− ,("icml" , IOStringWriter writeICML)
289+ ,("icml" , IOStringWriter $ \o doc ->
290+ runIOorExplode $ writeICML o doc)
284291 ,("s5" , PureStringWriter $ \o ->
285292 writeHtmlString o{ writerSlideVariant = S5Slides
286293 , writerTableOfContents = False })
@@ -316,7 +323,8 @@ writers = [
316323 ,("dokuwiki" , PureStringWriter writeDokuWiki)
317324 ,("zimwiki" , PureStringWriter writeZimWiki)
318325 ,("textile" , PureStringWriter writeTextile)
319− ,("rtf" , IOStringWriter writeRTFWithEmbeddedImages)
326+ ,("rtf" , IOStringWriter $ \o doc ->
327+ runIOorExplode $ writeRTFWithEmbeddedImages o doc)
320328 ,("org" , PureStringWriter writeOrg)
321329 ,("asciidoc" , PureStringWriter writeAsciiDoc)
322330 ,("haddock" , PureStringWriter writeHaddock)