@@ -655,7 +655,7 @@ simpleTableHeader headless = try $ do
655655 map removeLeadingTrailingSpace rawHeads
656656 return (heads, aligns, indices)
657657
658−-- Parse a simple table with '---' header and one line per row.
658+-- Parse a simple table.
659659simpleTable :: Bool -- ^ Headerless table
660660 -> GenParser Char ParserState Block
661661simpleTable headless = do