From e4913d6dba1d413715fb68fd91683ab7b321bec8 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 30 Jul 2014 15:26:40 -0700
Subject: Allow --self-contained to get content from MediaBag.

Added a parameter to makeSelfContained (API change).
---
 pandoc.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'pandoc.hs')

diff --git a/pandoc.hs b/pandoc.hs
index b1666d306..2cd161907 100644
--- a/pandoc.hs
+++ b/pandoc.hs
@@ -1281,7 +1281,9 @@ main = do
                                ["html","html+lhs","html5","html5+lhs",
                                "s5","slidy","slideous","dzslides","revealjs"]
                 selfcontain = if selfContained && htmlFormat
-                                 then makeSelfContained datadir
+                                 then makeSelfContained
+                                      (writerMediaBag writerOptions')
+                                      (writerUserDataDir writerOptions')
                                  else return
                 handleEntities = if htmlFormat && ascii
                                     then toEntities
-- 
cgit v1.2.3