diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 1f28e5d17..358cc468f 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -251,12 +251,13 @@ mkLvl marker lvl = ,show n) step = 720 hang = step `div` 2 - bulletFor 1 = "\8226" - bulletFor 2 = "\9702" - bulletFor 3 = "\8227" - bulletFor 4 = "\8259" - bulletFor 5 = "\8226" - bulletFor _ = "\9702" + bulletFor 0 = "\8226" + bulletFor 1 = "\9702" + bulletFor 2 = "\8227" + bulletFor 3 = "\8259" + bulletFor 4 = "\8226" + bulletFor 5 = "\9702" + bulletFor _ = "\8227" styleFor UpperAlpha _ = "upperLetter" styleFor LowerAlpha _ = "lowerLetter" styleFor UpperRoman _ = "upperRoman" |