Small improvement to fix to #1333.

This allows blank lines at end of multiline headers.
This commit is contained in:
John MacFarlane 2014-06-16 21:26:50 -07:00
parent 9da5d8955e
commit f9b97e6bfb

View file

@ -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