diff options
| author | Joseph C. Sible <josephcsible@users.noreply.github.com> | 2020-09-11 16:49:01 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-09-11 13:49:01 -0700 |
| commit | 6fda8cfa28fa07f94854ca47d27e0415a4499033 (patch) | |
| tree | a210f4c8c89891b38903996ba44e3242d9713420 /src/Text/Pandoc/Writers | |
| parent | 315b5a4836b477f2c176c7800e6c995ecb831194 (diff) | |
| download | pandoc-6fda8cfa28fa07f94854ca47d27e0415a4499033.tar.gz | |
Use the original tail instead of deconstructing and reconstructing it (#6678)
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 4 |
1 files 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 |