Docx writer: fixed a regression (infinite loop on certain lists).

Bug was introduced by commit a868b238f2.
This commit is contained in:
John MacFarlane 2017-08-15 14:01:11 -07:00
parent 892a4edeb1
commit 97fe6c35b5

View file

@ -733,8 +733,8 @@ mkLvl marker lvl =
styleFor DefaultStyle 3 = "lowerRoman"
styleFor DefaultStyle 4 = "decimal"
styleFor DefaultStyle 5 = "lowerLetter"
styleFor DefaultStyle 6 = "lowerRoman"
styleFor DefaultStyle x = styleFor DefaultStyle (x `mod` 7)
styleFor DefaultStyle 0 = "lowerRoman"
styleFor DefaultStyle x = styleFor DefaultStyle (x `mod` 6)
styleFor _ _ = "decimal"
patternFor OneParen s = s ++ ")"
patternFor TwoParens s = "(" ++ s ++ ")"