aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-06-16 21:26:50 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-06-16 21:26:50 -0700
commitf9b97e6bfb1d26bd328cdbb1ca83c4558e7f4a0c (patch)
tree7f9493e07cf48eae385a21fd21f9963bd5ba9c6c /src/Text/Pandoc/Readers
parent9da5d8955ecc090d1582a9d007a0ecace654d229 (diff)
downloadpandoc-f9b97e6bfb1d26bd328cdbb1ca83c4558e7f4a0c.tar.gz
Small improvement to fix to #1333.
This allows blank lines at end of multiline headers.
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs5
1 files changed, 1 insertions, 4 deletions
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