aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-02-21 17:30:13 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-02-21 17:30:13 +0100
commit598ffa3a945603c4875d76df3236960ab2181733 (patch)
tree70c5d5d487784cc808443804c9cde9989f957909
parent7af3d90ae1ca43eb8354876c7dc2e8e2245f2274 (diff)
downloadpandoc-598ffa3a945603c4875d76df3236960ab2181733.tar.gz
MediaWiki tables: allow extra hyphens after `|-` in tables.
I didn't see this documented anywhere, but it seems to be allowed (and common). See #2649. This addresses some of the cases there, but not all.
-rw-r--r--src/Text/Pandoc/Readers/MediaWiki.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs
index 14f9da9b6..73177f531 100644
--- a/src/Text/Pandoc/Readers/MediaWiki.hs
+++ b/src/Text/Pandoc/Readers/MediaWiki.hs
@@ -264,7 +264,7 @@ tableEnd = try $ guardColumnOne *> skipSpaces *> sym "|}"
rowsep :: PandocMonad m => MWParser m ()
rowsep = try $ guardColumnOne *> skipSpaces *> sym "|-" <*
- optional parseAttr <* blanklines
+ many (char '-') <* optional parseAttr <* blanklines
cellsep :: PandocMonad m => MWParser m ()
cellsep = try $