From 97fe6c35b5c8c5e3e076f712e841f1db13c5a0bd Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 15 Aug 2017 14:01:11 -0700 Subject: Docx writer: fixed a regression (infinite loop on certain lists). Bug was introduced by commit a868b238f253423281b2648896f184e7cdc05014. --- src/Text/Pandoc/Writers/Docx.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc') 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 ++ ")" -- cgit v1.2.3