@@ -198,10 +198,9 @@ pandocToMarkdown opts (Pandoc meta blocks) = do
198198 (if isEmpty refs' then empty else blankline <> refs')
199199 let context = defField "toc" (render' toc)
200200 $ defField "body" main
201− $ (if not (null (docTitle meta) && null (docAuthors meta)
202− && null (docDate meta))
203− then defField "titleblock" (render' titleblock)
204− else id)
201+ $ (if isNullMeta meta
202+ then id
203+ else defField "titleblock" (render' titleblock))
205204 $ metadata
206205 if writerStandalone opts
207206 then return $ renderTemplate' (writerTemplate opts) context