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