@@ -763,9 +763,7 @@ makeTOC _ = return []
763763-- OpenXML elements (the main document and footnotes).
764764writeOpenXML :: (PandocMonad m) => WriterOptions -> Pandoc -> WS m ([Element], [Element],[Element])
765765writeOpenXML opts (Pandoc meta blocks) = do
766− let tit = docTitle meta ++ case lookupMeta "subtitle" meta of
767− Just (MetaBlocks [Plain xs]) -> LineBreak : xs
768− _ -> []
766+ let tit = docTitle meta
769767 let auths = docAuthors meta
770768 let dat = docDate meta
771769 let abstract' = case lookupMeta "abstract" meta of