diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-08-15 14:01:11 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-15 14:05:10 -0700 |
| commit | 97fe6c35b5c8c5e3e076f712e841f1db13c5a0bd (patch) | |
| tree | ff1848bdfc9e9de24f8c3a3cb6edfec6ebf3a733 | |
| parent | 892a4edeb1c9b9810c8386e639d8e457bbae7e86 (diff) | |
| download | pandoc-97fe6c35b5c8c5e3e076f712e841f1db13c5a0bd.tar.gz | |
Docx writer: fixed a regression (infinite loop on certain lists).
Bug was introduced by commit a868b238f253423281b2648896f184e7cdc05014.
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 51e4ffb98..3d6eb9fe5 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -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 ++ ")" |