diff options
| author | chinapedia <chinapedia@outlook.com> | 2019-05-02 08:21:15 +0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-05-01 20:21:15 -0400 |
| commit | cfb37262162eabdbe9461b2adffe33d780ee4c81 (patch) | |
| tree | 503d606390c01257bd2d853eb4afba19f127e280 | |
| parent | 73efef589a14616972cf4e3b96b3b1dc366b80f1 (diff) | |
| download | pandoc-cfb37262162eabdbe9461b2adffe33d780ee4c81.tar.gz | |
MediaWiki reader: handle multiple attributes in table row (#5471)
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index cf942d0a3..6da3e0777 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -253,7 +253,7 @@ tableEnd = try $ guardColumnOne *> skipSpaces *> sym "|}" rowsep :: PandocMonad m => MWParser m () rowsep = try $ guardColumnOne *> skipSpaces *> sym "|-" <* - many (char '-') <* optional parseAttr <* blanklines + many (char '-') <* optional parseAttrs <* blanklines cellsep :: PandocMonad m => MWParser m () cellsep = try $ do @@ -277,7 +277,7 @@ tableCaption = try $ do guardColumnOne skipSpaces sym "|+" - optional (try $ parseAttr *> skipSpaces *> char '|' *> blanklines) + optional (try $ parseAttrs *> skipSpaces *> char '|' *> blanklines) (trimInlines . mconcat) <$> many (notFollowedBy (cellsep <|> rowsep) *> inline) |