diff options
| author | John MacFarlane <[email protected]> | 2022-07-28 11:27:27 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2022-07-28 11:28:02 -0700 |
| commit | f637ccd3bf9c955b8e92e6f759556bfcb8a33d83 (patch) | |
| tree | fb9f4327b412e69db393b4670252ccacc4a45c20 /src | |
| parent | 5c3423f2e2b441f9fe630538906b5fc1436e04f3 (diff) | |
MediaWiki reader: allow HTML comment after row start.
Closes #8110.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index 2dc289f18..0fdfa8b84 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -265,7 +265,10 @@ tableEnd = try $ guardColumnOne *> skipSpaces *> sym "|}" rowsep :: PandocMonad m => MWParser m () rowsep = try $ guardColumnOne *> skipSpaces *> sym "|-" <* - many (char '-') <* optional parseAttrs <* blanklines + many (char '-') <* optional parseAttrs + <* skipSpaces + <* skipMany htmlComment + <* blanklines cellsep :: PandocMonad m => MWParser m () cellsep = try $ do |