From f9b97e6bfb1d26bd328cdbb1ca83c4558e7f4a0c Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 16 Jun 2014 21:26:50 -0700
Subject: Small improvement to fix to #1333.
This allows blank lines at end of multiline headers.
---
src/Text/Pandoc/Readers/Markdown.hs | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
(limited to 'src')
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index c20a2a1fc..a6720beba 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1121,10 +1121,7 @@ multilineTableHeader headless = try $ do
tableSep >> notFollowedBy blankline
rawContent <- if headless
then return $ repeat ""
- else many1 $ do
- notFollowedBy blankline
- notFollowedBy tableSep
- anyLine
+ else many1 $ notFollowedBy tableSep >> anyLine
initSp <- nonindentSpaces
dashes <- many1 (dashedLine '-')
newline
--
cgit v1.2.3