diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/Markdown.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index cd3c1db81..0403940e5 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -145,11 +145,11 @@ pandocToMarkdown opts (Pandoc meta blocks) = do let main = render' $ body <> (if isEmpty notes' then empty else blankline <> notes') <> (if isEmpty refs' then empty else blankline <> refs') - let context = setField "toc" (render' toc) - $ setField "body" main + let context = defField "toc" (render' toc) + $ defField "body" main $ (if not (null (docTitle meta) && null (docAuthors meta) && null (docDate meta)) - then setField "titleblock" (render' titleblock) + then defField "titleblock" (render' titleblock) else id) $ foldl (\acc (x,y) -> setField x y acc) metadata (writerVariables opts) |