summaryrefslogtreecommitdiff
path: root/pandoc.hs
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2014-07-30 12:48:07 -0400
committerJesse Rosenthal <jrosenthal@jhu.edu>2014-07-30 12:48:07 -0400
commitf733b50150c3e7bf445d0d7c71e1f34e62ddf61a (patch)
treeccf89e4668affc8ee0bf16089f6eadc2c3a427ad /pandoc.hs
parenta79ea1850389b09ddc1f3046750b3481d0e10b60 (diff)
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.
Diffstat (limited to 'pandoc.hs')
-rw-r--r--pandoc.hs3
1 files changed, 2 insertions, 1 deletions
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