From 4f43a1d250287e8d89ee5cd3c8b020ea6fe83758 Mon Sep 17 00:00:00 2001
From: stalmon <35015406+stalmon@users.noreply.github.com>
Date: Tue, 2 Jan 2018 01:14:36 +0100
Subject: 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
---
 src/Text/Pandoc/Writers/Docx.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/Text')

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
-- 
cgit v1.2.3