Allow --self-contained to get content from MediaBag.

Added a parameter to makeSelfContained (API change).

1 files changed, 3 insertions, 1 deletions

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