diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index a7b9ee621..5fc004238 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -1082,9 +1082,9 @@ getParaProps displayMathPara = do listLevel <- asks envListLevel numid <- asks envListNumId let listPr = [mknode "w:numPr" [] - [ mknode "w:numId" [("w:val",show numid)] () - , mknode "w:ilvl" [("w:val",show listLevel)] () ] | listLevel >= 0 && not displayMathPara] - return $ case props ++ listPr of + [ mknode "w:ilvl" [("w:val",show listLevel)] () + , mknode "w:numId" [("w:val",show numid)] () ] | listLevel >= 0 && not displayMathPara] + return $ case listPr ++ props of [] -> [] ps -> [mknode "w:pPr" [] ps] |