lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-26 18:26:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

Use the original tail instead of deconstructing and reconstructing it (#6678)

Browse Source
This commit is contained in:
Joseph C. Sible
2020-09-11 13:49:01 -07:00
committed by GitHub
parent 315b5a4836
commit 6fda8cfa28
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Writers/Docx.hs
+2 -2
View File
@@ -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