diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index c311ff158..02d3eacd2 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1184,10 +1184,12 @@ pipeTableRow = do | otherwise -> B.plain $ ils') cells' pipeTableHeaderPart :: Parser [Char] st Alignment -pipeTableHeaderPart = do +pipeTableHeaderPart = try $ do + skipMany spaceChar left <- optionMaybe (char ':') many1 (char '-') right <- optionMaybe (char ':') + skipMany spaceChar return $ case (left,right) of (Nothing,Nothing) -> AlignDefault |