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