diff options
| author | stalmon <35015406+stalmon@users.noreply.github.com> | 2018-01-02 01:14:36 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2018-01-02 01:14:36 +0100 |
| commit | 4f43a1d250287e8d89ee5cd3c8b020ea6fe83758 (patch) | |
| tree | 4d573d352415b956a0e0aecc258b13bd1f44b782 /src/Text/Pandoc | |
| parent | ecc46e229fde934f163d1f646383d24bfe2039e1 (diff) | |
| download | pandoc-4f43a1d250287e8d89ee5cd3c8b020ea6fe83758.tar.gz | |
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
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 4 |
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 |