aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-02-21 18:34:21 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-02-21 18:34:21 +0100
commit1d06e8c5a5e34d7d1373b1c2839ebf57a2fc0546 (patch)
treec5a97925db664141b2ad0f35e71c18eb6d286c6e
parent598ffa3a945603c4875d76df3236960ab2181733 (diff)
downloadpandoc-1d06e8c5a5e34d7d1373b1c2839ebf57a2fc0546.tar.gz
MediaWiki reader: Allow blank line after table start.
See #2649.
-rw-r--r--src/Text/Pandoc/Readers/MediaWiki.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs
index 73177f531..f0d01136f 100644
--- a/src/Text/Pandoc/Readers/MediaWiki.hs
+++ b/src/Text/Pandoc/Readers/MediaWiki.hs
@@ -219,7 +219,7 @@ para = do
table :: PandocMonad m => MWParser m Blocks
table = do
tableStart
- styles <- option [] parseAttrs <* blankline
+ styles <- option [] parseAttrs <* blanklines
let tableWidth = case lookup "width" styles of
Just w -> fromMaybe 1.0 $ parseWidth w
Nothing -> 1.0