diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2023-12-18 09:54:14 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2023-12-18 09:54:14 -0800 |
| commit | 9c5e6aeedc8fe8653e9e050d5dfefc969f0d8e8c (patch) | |
| tree | f2fdd7e593c2d04ebd83c3bac8a2eb462560fef4 /src | |
| parent | 72269357b759ff75e6b9c7bf45d4f55f6985e903 (diff) | |
Docx writer: fix validation error.
The elements in pPr in lists were not properly ordered.
This doesn't seem to cause problems for Word, but it makes
validation fail and may pose problems for other consumers of
docx. Closes #9265.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index e89ec4801..b0d902403 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -1246,7 +1246,7 @@ getParaProps displayMathPara = do let listPr = [mknode "w:numPr" [] [ mknode "w:ilvl" [("w:val",tshow listLevel)] () , mknode "w:numId" [("w:val",tshow numid')] () ] | listLevel >= 0 && not displayMathPara] - return $ case listPr ++ squashProps props of + return $ case squashProps (EnvProps Nothing listPr <> props) of [] -> [] ps -> [mknode "w:pPr" [] ps] |