diff options
| -rw-r--r-- | pandoc.cabal | 6 | ||||
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/pandoc.cabal b/pandoc.cabal index 088c5af4b..3e202484a 100644 --- a/pandoc.cabal +++ b/pandoc.cabal @@ -223,7 +223,7 @@ Library extensible-exceptions >= 0.1 && < 0.2, pandoc-types >= 1.12.3 && < 1.13, aeson >= 0.6 && < 0.8, - tagsoup >= 0.12.5 && < 0.14, + tagsoup >= 0.13.1 && < 0.14, base64-bytestring >= 0.1 && < 1.1, zlib >= 0.5 && < 0.6, highlighting-kate >= 0.5.6 && < 0.6, @@ -232,7 +232,7 @@ Library blaze-html >= 0.5 && < 0.8, blaze-markup >= 0.5.1 && < 0.7, attoparsec >= 0.10 && < 0.12, - yaml >= 0.8.3 && < 0.9, + yaml >= 0.8.8.2 && < 0.9, vector >= 0.10 && < 0.11, hslua >= 0.3 && < 0.4, binary >= 0.5 && < 0.8 @@ -328,7 +328,7 @@ Executable pandoc extensible-exceptions >= 0.1 && < 0.2, highlighting-kate >= 0.5.6 && < 0.6, aeson >= 0.6 && < 0.8, - yaml >= 0.8.3 && < 0.9, + yaml >= 0.8.8.2 && < 0.9, containers >= 0.1 && < 0.6, HTTP >= 4000.0.5 && < 4000.3 Ghc-Options: -rtsopts -with-rtsopts=-K16m -Wall -fno-warn-unused-do-bind diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 687355701..6f0629ea2 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -235,9 +235,9 @@ toRomanNumeral x = _ | x >= 50 -> "L" ++ toRomanNumeral (x - 50) _ | x >= 40 -> "XL" ++ toRomanNumeral (x - 40) _ | x >= 10 -> "X" ++ toRomanNumeral (x - 10) - _ | x >= 9 -> "IX" ++ toRomanNumeral (x - 5) + _ | x == 9 -> "IX" _ | x >= 5 -> "V" ++ toRomanNumeral (x - 5) - _ | x >= 4 -> "IV" ++ toRomanNumeral (x - 4) + _ | x == 4 -> "IV" _ | x >= 1 -> "I" ++ toRomanNumeral (x - 1) _ -> "" |