summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorstalmon <35015406+stalmon@users.noreply.github.com>2018-01-02 01:14:36 +0100
committerGitHub <noreply@github.com>2018-01-02 01:14:36 +0100
commit4f43a1d250287e8d89ee5cd3c8b020ea6fe83758 (patch)
tree4d573d352415b956a0e0aecc258b13bd1f44b782
parentecc46e229fde934f163d1f646383d24bfe2039e1 (diff)
Removed redundant subtitle in title
subtitle is allready used to create a subtitle for the document appending the subtitle to the main title leads to double subtitle in the document
-rw-r--r--src/Text/Pandoc/Writers/Docx.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
index e4240ca4f..88caccdf7 100644
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -763,9 +763,7 @@ makeTOC _ = return []
-- OpenXML elements (the main document and footnotes).
writeOpenXML :: (PandocMonad m) => WriterOptions -> Pandoc -> WS m ([Element], [Element],[Element])
writeOpenXML opts (Pandoc meta blocks) = do
- let tit = docTitle meta ++ case lookupMeta "subtitle" meta of
- Just (MetaBlocks [Plain xs]) -> LineBreak : xs
- _ -> []
+ let tit = docTitle meta
let auths = docAuthors meta
let dat = docDate meta
let abstract' = case lookupMeta "abstract" meta of