diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 | ||||
| -rw-r--r-- | tests/testsuite.txt | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 8a09b191c..9d31c175d 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -68,7 +68,7 @@ setextHChars = "=-" -- treat these as potentially non-text when parsing inline: specialChars :: [Char] -specialChars = "\\[]*_~`<>$!^-.&'\"\8216\8217\8220\8221" +specialChars = "\\[]*_~`<>$!^-.&'\"\8216\8217\8220\8221;" -- -- auxiliary functions @@ -136,7 +136,7 @@ authorsLine :: GenParser Char ParserState [[Inline]] authorsLine = try $ do char '%' skipSpaces - authors <- sepEndBy (many1 (notFollowedBy (oneOf ",;\n") >> inline)) (oneOf ",;") + authors <- sepEndBy (many1 (notFollowedBy (oneOf ";\n") >> inline)) (oneOf ";") newline return $ map normalizeSpaces authors diff --git a/tests/testsuite.txt b/tests/testsuite.txt index 6f24f02ed..5688e1afe 100644 --- a/tests/testsuite.txt +++ b/tests/testsuite.txt @@ -1,5 +1,5 @@ % Pandoc Test Suite -% John MacFarlane, Anonymous +% John MacFarlane; Anonymous % July 17, 2006 This is a set of tests for pandoc. Most of them are adapted from |