Markdown reader: fixed #1333 (table parsing bug).

2014-06-16 20:48:55 -07:00 · 2014-06-16 20:48:55 -07:00 · 9da5d8955e
commit 9da5d8955e
parent 87c08be58f
1 changed files with 6 additions and 5 deletions
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@ -1117,13 +1117,14 @@ multilineTable headless =
 multilineTableHeader :: Bool -- ^ Headerless table
                     -> MarkdownParser (F [Blocks], [Alignment], [Int])
 multilineTableHeader headless = try $ do
-  if headless
-     then return '\n'
-     else tableSep >>~ notFollowedBy blankline
+  unless headless $
+     tableSep >> notFollowedBy blankline
  rawContent  <- if headless
                    then return $ repeat ""
-                    else many1
-                         (notFollowedBy tableSep >> many1Till anyChar newline)
+                    else many1 $ do
+                          notFollowedBy blankline
+                          notFollowedBy tableSep
+                          anyLine
  initSp      <- nonindentSpaces
  dashes      <- many1 (dashedLine '-')
  newline