MediaWiki reader: handle multiple attributes in table row (#5471)

This commit is contained in:
chinapedia
2019-05-01 20:21:15 -04:00
committed by John MacFarlane
parent 73efef589a
commit cfb3726216
+2 -2
View File
@@ -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)