@@ -440,13 +440,15 @@ gridTableHeader headless = try $ do
440 rawContent <- if headless
440 rawContent <- if headless
441 then return $ repeat ""
441 then return $ repeat ""
442 else many1
442 else many1
443− (notFollowedBy (gridTableSep '=') >> char '|' >> many1Till anyChar newline)
443+ (notFollowedBy (gridTableSep '=') >> char '|' >>
444+ many1Till anyChar newline)
444 if headless
445 if headless
445 then return ()
446 then return ()
446 else gridTableSep '=' >> return ()
447 else gridTableSep '=' >> return ()
447 let lines' = map snd dashes
448 let lines' = map snd dashes
448 let indices = scanl (+) 0 lines'
449 let indices = scanl (+) 0 lines'
449− let aligns = replicate (length lines') AlignDefault -- RST does not have a notion of alignments
450+ let aligns = replicate (length lines') AlignDefault
451+ -- RST does not have a notion of alignments
450 let rawHeads = if headless
452 let rawHeads = if headless
451 then replicate (length dashes) ""
453 then replicate (length dashes) ""
452 else map (intercalate " ") $ transpose
454 else map (intercalate " ") $ transpose