@@ -342,7 +342,7 @@ charsInBalanced' open close = try $ do
342-- | Parses a roman numeral (uppercase or lowercase), returns number.
342-- | Parses a roman numeral (uppercase or lowercase), returns number.
343romanNumeral :: Bool -- ^ Uppercase if true
343romanNumeral :: Bool -- ^ Uppercase if true
344 -> GenParser Char st Int
344 -> GenParser Char st Int
345−romanNumeral upper = try $ do
345+romanNumeral upper = do
346 let charAnyCase c = char (if upper then toUpper c else c)
346 let charAnyCase c = char (if upper then toUpper c else c)
347 let one = charAnyCase 'i'
347 let one = charAnyCase 'i'
348 let five = charAnyCase 'v'
348 let five = charAnyCase 'v'