From 6fda8cfa28fa07f94854ca47d27e0415a4499033 Mon Sep 17 00:00:00 2001
From: "Joseph C. Sible" <josephcsible@users.noreply.github.com>
Date: Fri, 11 Sep 2020 16:49:01 -0400
Subject: [PATCH] Use the original tail instead of deconstructing and
reconstructing it (#6678)
---
src/Text/Pandoc/Writers/Docx.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
index e738008ee..81dbb6ce0 100644
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -854,8 +854,8 @@ blocksToOpenXML opts = fmap concat . mapM (blockToOpenXML opts) . separateTables
-- them. See #4315.
separateTables :: [Block] -> [Block]
separateTables [] = []
-separateTables (x@Table{}:y@Table{}:zs) =
- x : RawBlock (Format "openxml") "<w:p />" : separateTables (y:zs)
+separateTables (x@Table{}:xs@(Table{}:_)) =
+ x : RawBlock (Format "openxml") "<w:p />" : separateTables xs
separateTables (x:xs) = x : separateTables xs
pStyleM :: (PandocMonad m) => ParaStyleName -> WS m XML.Element