@@ -68,7 +68,7 @@ setextHChars = "=-"
69-- treat these as potentially non-text when parsing inline:
69-- treat these as potentially non-text when parsing inline:
70specialChars :: [Char]
70specialChars :: [Char]
71−specialChars = "\\[]*_~`<>$!^-.&'\"\8216\8217\8220\8221"
71+specialChars = "\\[]*_~`<>$!^-.&'\"\8216\8217\8220\8221;"
74-- auxiliary functions
74-- auxiliary functions
@@ -136,7 +136,7 @@ authorsLine :: GenParser Char ParserState [[Inline]]
136authorsLine = try $ do
136authorsLine = try $ do
138 skipSpaces
138 skipSpaces
139− authors <- sepEndBy (many1 (notFollowedBy (oneOf ",;\n") >> inline)) (oneOf ",;")
139+ authors <- sepEndBy (many1 (notFollowedBy (oneOf ";\n") >> inline)) (oneOf ";")
141 return $ map normalizeSpaces authors
141 return $ map normalizeSpaces authors