aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-08-28 06:07:06 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-08-28 06:07:06 +0000
commitb94f5414773dfa0e78d2d266ec791136d1590a3f (patch)
treefb982d901fca79887fc1075d93a2aa174cf9ccc6 /src/Text/Pandoc
parent6765fadd12a2019e8ff66ae647ab675b2db98a43 (diff)
downloadpandoc-b94f5414773dfa0e78d2d266ec791136d1590a3f.tar.gz
Removed unneeded 'try' from romanNumeral parser.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@930 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Shared.hs2
1 files changed, 1 insertions, 1 deletions
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'