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