diff options
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index b563b4eb9..386dafd46 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -440,13 +440,15 @@ gridTableHeader headless = try $ do rawContent <- if headless then return $ repeat "" else many1 - (notFollowedBy (gridTableSep '=') >> char '|' >> many1Till anyChar newline) + (notFollowedBy (gridTableSep '=') >> char '|' >> + many1Till anyChar newline) if headless then return () else gridTableSep '=' >> return () let lines' = map snd dashes let indices = scanl (+) 0 lines' - let aligns = replicate (length lines') AlignDefault -- RST does not have a notion of alignments + let aligns = replicate (length lines') AlignDefault + -- RST does not have a notion of alignments let rawHeads = if headless then replicate (length dashes) "" else map (intercalate " ") $ transpose |