summaryrefslogtreecommitdiff
path: root/pandoc.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-07-30 10:55:29 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-07-30 10:55:29 -0700
commitb12d2ea20a8b914ed2d6ee111eee5a25ad989597 (patch)
treeccf89e4668affc8ee0bf16089f6eadc2c3a427ad /pandoc.hs
parent02c79ea4f6c050e9e610825e8b462382beae2b5a (diff)
parentf733b50150c3e7bf445d0d7c71e1f34e62ddf61a (diff)
Merge pull request #1468 from jkr/mediabag
Mediabag
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