aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/App.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-02-23 15:00:00 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-02-23 15:06:25 +0100
commit2bbf98a6132c56fd675c2427d46ff22d4f143496 (patch)
treea02d414de4387b61476f7ba2f8f1d1446d4be793 /src/Text/Pandoc/App.hs
parenta38f84748459071d514c90e9f18431755772e523 (diff)
downloadpandoc-2bbf98a6132c56fd675c2427d46ff22d4f143496.tar.gz
Put makeSelfContained in PandocMonad instead of IO.
This removes the need to pass MediaBag around and improves exceptions. It also opens up the possibility of using makeSelfContained purely.
Diffstat (limited to 'src/Text/Pandoc/App.hs')
-rw-r--r--src/Text/Pandoc/App.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs
index be8f26811..4c5e941e0 100644
--- a/src/Text/Pandoc/App.hs
+++ b/src/Text/Pandoc/App.hs
@@ -409,7 +409,7 @@ convertWithOpts opts = do
let htmlFormat = format `elem`
["html","html4","html5","s5","slidy","slideous","dzslides","revealjs"]
selfcontain = if optSelfContained opts && htmlFormat
- then makeSelfContained writerOptions media
+ then makeSelfContained writerOptions
else return
handleEntities = if htmlFormat && optAscii opts
then toEntities