@@ -514,22 +514,16 @@ charsInBalanced open close parser = try $ do
514514
515515-- Auxiliary functions for romanNumeral:
516516
517−lowercaseRomanDigits :: [Char]
518−lowercaseRomanDigits = ['i','v','x','l','c','d','m']
519−
520−uppercaseRomanDigits :: [Char]
521−uppercaseRomanDigits = map toUpper lowercaseRomanDigits
522−
523517-- | Parses a roman numeral (uppercase or lowercase), returns number.
524518romanNumeral :: Stream s m Char => Bool -- ^ Uppercase if true
525519 -> ParserT s st m Int
526520romanNumeral upperCase = do
527− let romanDigits = if upperCase
528− then uppercaseRomanDigits
529− else lowercaseRomanDigits
530− lookAhead $ oneOf romanDigits
531521 let [one, five, ten, fifty, hundred, fivehundred, thousand] =
532− map char romanDigits
522+ map char $
523+ if upperCase
524+ then ['I','V','X','L','C','D','M']
525+ else ['i','v','x','l','c','d','m']
526+ lookAhead $ choice [one, five, ten, fifty, hundred, fivehundred, thousand]
533527 thousands <- ((1000 *) . length) <$> many thousand
534528 ninehundreds <- option 0 $ try $ hundred >> thousand >> return 900
535529 fivehundreds <- option 0 $ 500 <$ fivehundred