@@ -1082,9 +1082,9 @@ getParaProps displayMathPara = do
10821082 listLevel <- asks envListLevel
10831083 numid <- asks envListNumId
10841084 let listPr = [mknode "w:numPr" []
1085− [ mknode "w:numId" [("w:val",show numid)] ()
1086− , mknode "w:ilvl" [("w:val",show listLevel)] () ] | listLevel >= 0 && not displayMathPara]
1087− return $ case props ++ listPr of
1085+ [ mknode "w:ilvl" [("w:val",show listLevel)] ()
1086+ , mknode "w:numId" [("w:val",show numid)] () ] | listLevel >= 0 && not displayMathPara]
1087+ return $ case listPr ++ props of
10881088 [] -> []
10891089 ps -> [mknode "w:pPr" [] ps]
10901090