@@ -91,7 +91,8 @@ pandocToMarkdown opts (Pandoc (Meta title authors date) blocks) = do
91 title' <- inlineListToMarkdown opts title
91 title' <- inlineListToMarkdown opts title
92 authors' <- mapM (inlineListToMarkdown opts) authors
92 authors' <- mapM (inlineListToMarkdown opts) authors
93 date' <- inlineListToMarkdown opts date
93 date' <- inlineListToMarkdown opts date
94+ let titleblock = isEnabled Ext_pandoc_title_blocks opts &&
94− let titleblock = not $ null title && null authors && null date
95+ not (null title && null authors && null date)
95 let headerBlocks = filter isHeaderBlock blocks
96 let headerBlocks = filter isHeaderBlock blocks
96 let toc = if writerTableOfContents opts
97 let toc = if writerTableOfContents opts
97 then tableOfContents opts headerBlocks
98 then tableOfContents opts headerBlocks