From b94f5414773dfa0e78d2d266ec791136d1590a3f Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Tue, 28 Aug 2007 06:07:06 +0000 Subject: Removed unneeded 'try' from romanNumeral parser. git-svn-id: https://pandoc.googlecode.com/svn/trunk@930 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Shared.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 1bbe95466..2958b4388 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -342,7 +342,7 @@ charsInBalanced' open close = try $ do -- | Parses a roman numeral (uppercase or lowercase), returns number. romanNumeral :: Bool -- ^ Uppercase if true -> GenParser Char st Int -romanNumeral upper = try $ do +romanNumeral upper = do let charAnyCase c = char (if upper then toUpper c else c) let one = charAnyCase 'i' let five = charAnyCase 'v' -- cgit v1.2.3