From f733b50150c3e7bf445d0d7c71e1f34e62ddf61a Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Wed, 30 Jul 2014 12:48:07 -0400
Subject: Make toplevel pandoc bin make use of mediabag.

Note that at the moment the mediabag is discarded. This will have to be
changed to make use of it.
---
 pandoc.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'pandoc.hs')

diff --git a/pandoc.hs b/pandoc.hs
index 908643a1f..629c16c86 100644
--- a/pandoc.hs
+++ b/pandoc.hs
@@ -1201,7 +1201,8 @@ main = do
             readSources sources >>=
               handleIncludes' . convertTabs . intercalate "\n" >>=
               r readerOpts
-          ByteStringReader r -> readFiles sources >>= r readerOpts
+          ByteStringReader r -> readFiles sources >>= r readerOpts >>=
+                                (return . fst)
 
 
   let doc0 = M.foldWithKey setMeta doc metadata
-- 
cgit v1.2.3