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: 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(-)

(limited to 'src/Text/Pandoc')

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