@@ -228,6 +228,7 @@ wrapIfNeeded opts = if writerWrapText opts
228228 else ($)
229229
230230-- auxiliary function for wrappedTeX
231+isNote :: Inline -> Bool
231232isNote (Note _) = True
232233isNote _ = False
233234
@@ -386,7 +387,10 @@ charsInBalanced' open close = try $ do
386387
387388-- Auxiliary functions for romanNumeral:
388389
390+lowercaseRomanDigits :: [Char]
389391lowercaseRomanDigits = ['i','v','x','l','c','d','m']
392+
393+uppercaseRomanDigits :: [Char]
390394uppercaseRomanDigits = map toUpper lowercaseRomanDigits
391395
392396-- | Parses a roman numeral (uppercase or lowercase), returns number.
@@ -421,13 +425,16 @@ romanNumeral upperCase = do
421425
422426-- Parsers for email addresses and URIs
423427
428+emailChar :: GenParser Char st Char
424429emailChar = alphaNum <|> oneOf "-+_."
425430
431+domainChar :: GenParser Char st Char
426432domainChar = alphaNum <|> char '-'
427433
434+domain :: GenParser Char st [Char]
428435domain = do
429436 first <- many1 domainChar
430− dom <- many1 (try (do{ char '.'; many1 domainChar }))
437+ dom <- many1 $ try (char '.' >> many1 domainChar )
431438 return $ joinWithSep "." (first:dom)
432439
433440-- | Parses an email address; returns string.
@@ -441,6 +448,7 @@ emailAddress = try $ do
441448 return $ addr ++ '@':dom
442449
443450-- | Parses a URI.
451+uri :: GenParser Char st String
444452uri = try $ do
445453 str <- many1 $ satisfy isAllowedInURI
446454 case parseURI str of