diff options
| author | roblabla <robinlambertz+dev@gmail.com> | 2016-05-09 15:22:02 +0200 |
|---|---|---|
| committer | roblabla <robinlambertz+dev@gmail.com> | 2016-05-09 17:54:40 +0200 |
| commit | acd492c7f49e31f65ec044ce3ba66ffb80844e27 (patch) | |
| tree | d63195836424d99e76c98727ff9aa872c7ceacef /src/Text/Pandoc/Readers/MediaWiki.hs | |
| parent | 21d1a3b57cc37cc8c13eaf24faf0743259afdb9a (diff) | |
Allow spaces before '!' in MediaWiki table header
Diffstat (limited to 'src/Text/Pandoc/Readers/MediaWiki.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index 950497992..d3cee08e2 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -225,7 +225,7 @@ table = do Nothing -> 1.0 caption <- option mempty tableCaption optional rowsep - hasheader <- option False $ True <$ (lookAhead (char '!')) + hasheader <- option False $ True <$ (lookAhead (skipSpaces *> char '!')) (cellspecs',hdr) <- unzip <$> tableRow let widths = map ((tableWidth *) . snd) cellspecs' let restwidth = tableWidth - sum widths |