Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

MediaWiki reader: Ignore attributes on headers.

Browse source
This commit is contained in:
John MacFarlane 2013-05-20 11:08:27 -07:00
parent c63e490ab2
commit ca09c1ac3b
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Readers/MediaWiki.hs
View file

@ -229,7 +229,7 @@ tableEnd = try $ guardColumnOne *> skipSpaces *> sym "|}"
rowsep :: MWParser ()
rowsep = try $ guardColumnOne *> skipSpaces *> sym "|-" <*
optional (void parseAttr) <* blanklines
optional parseAttr <* blanklines
cellsep :: MWParser ()
cellsep = try $
@ -246,9 +246,8 @@ tableCaption = try $ do
guardColumnOne
skipSpaces
sym "|+"
skipMany spaceChar
res <- anyLine >>= parseFromString (many inline)
return $ trimInlines $ mconcat res
optional (try $ parseAttr *> skipSpaces *> char '|' *> skipSpaces)
(trimInlines . mconcat) <$> many (notFollowedBy (cellsep <|> rowsep) *> inline)
tableRow :: MWParser [((Alignment, Double), Blocks)]
tableRow = try $ many tableCell