diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index cb9eee47d..31d14117b 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -219,17 +219,17 @@ parseAttr = try $ do return (k,v) tableStart :: MWParser () -tableStart = try $ guardColumnOne *> sym "{|" +tableStart = try $ guardColumnOne *> skipSpaces *> sym "{|" tableEnd :: MWParser () -tableEnd = try $ guardColumnOne *> sym "|}" +tableEnd = try $ guardColumnOne *> skipSpaces *> sym "|}" rowsep :: MWParser () -rowsep = try $ guardColumnOne *> sym "|-" <* blanklines +rowsep = try $ guardColumnOne *> skipSpaces *> sym "|-" <* blanklines cellsep :: MWParser () cellsep = try $ - (guardColumnOne <* + (guardColumnOne *> skipSpaces <* ( (char '|' <* notFollowedBy (oneOf "-}+")) <|> (char '!') ) @@ -240,6 +240,7 @@ cellsep = try $ tableCaption :: MWParser Inlines tableCaption = try $ do guardColumnOne + skipSpaces sym "|+" skipMany spaceChar res <- anyLine >>= parseFromString (many inline) |