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