@@ -261,24 +261,22 @@ camelCaseToHyphenated (a:rest) = (toLower a):(camelCaseToHyphenated rest)
261261
262262-- | Convert number < 4000 to uppercase roman numeral.
263263toRomanNumeral :: Int -> String
264−toRomanNumeral x =
265− if x >= 4000 || x < 0
266− then "?"
267− else case x of
268− _ | x >= 1000 -> "M" ++ toRomanNumeral (x - 1000)
269− _ | x >= 900 -> "CM" ++ toRomanNumeral (x - 900)
270− _ | x >= 500 -> "D" ++ toRomanNumeral (x - 500)
271− _ | x >= 400 -> "CD" ++ toRomanNumeral (x - 400)
272− _ | x >= 100 -> "C" ++ toRomanNumeral (x - 100)
273− _ | x >= 90 -> "XC" ++ toRomanNumeral (x - 90)
274− _ | x >= 50 -> "L" ++ toRomanNumeral (x - 50)
275− _ | x >= 40 -> "XL" ++ toRomanNumeral (x - 40)
276− _ | x >= 10 -> "X" ++ toRomanNumeral (x - 10)
277− _ | x == 9 -> "IX"
278− _ | x >= 5 -> "V" ++ toRomanNumeral (x - 5)
279− _ | x == 4 -> "IV"
280− _ | x >= 1 -> "I" ++ toRomanNumeral (x - 1)
281− _ -> ""
264+toRomanNumeral x
265+ | x >= 4000 || x < 0 = "?"
266+ | x >= 1000 = "M" ++ toRomanNumeral (x - 1000)
267+ | x >= 900 = "CM" ++ toRomanNumeral (x - 900)
268+ | x >= 500 = "D" ++ toRomanNumeral (x - 500)
269+ | x >= 400 = "CD" ++ toRomanNumeral (x - 400)
270+ | x >= 100 = "C" ++ toRomanNumeral (x - 100)
271+ | x >= 90 = "XC" ++ toRomanNumeral (x - 90)
272+ | x >= 50 = "L" ++ toRomanNumeral (x - 50)
273+ | x >= 40 = "XL" ++ toRomanNumeral (x - 40)
274+ | x >= 10 = "X" ++ toRomanNumeral (x - 10)
275+ | x == 9 = "IX"
276+ | x >= 5 = "V" ++ toRomanNumeral (x - 5)
277+ | x == 4 = "IV"
278+ | x >= 1 = "I" ++ toRomanNumeral (x - 1)
279+ | otherwise = ""
282280
283281-- | Escape whitespace and some punctuation characters in URI.
284282escapeURI :: String -> String