From cfb37262162eabdbe9461b2adffe33d780ee4c81 Mon Sep 17 00:00:00 2001
From: chinapedia <chinapedia@outlook.com>
Date: Thu, 2 May 2019 08:21:15 +0800
Subject: MediaWiki reader: handle multiple attributes in table row (#5471)
---
src/Text/Pandoc/Readers/MediaWiki.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'src')
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)
--
cgit v1.2.3