@@ -228,6 +228,8 @@ pSimpleTable :: TagParser [Block]
228228pSimpleTable = try $ do
229229 TagOpen _ _ <- pSatisfy (~== TagOpen "table" [])
230230 skipMany pBlank
231+ caption <- option [] $ pInTags "caption" inline >>~ skipMany pBlank
232+ skipMany $ pInTags "col" block >> skipMany pBlank
231233 head' <- option [] $ pOptInTag "thead" $ pInTags "tr" (pCell "th")
232234 skipMany pBlank
233235 rows <- pOptInTag "tbody"
@@ -237,7 +239,7 @@ pSimpleTable = try $ do
237239 let cols = maximum $ map length rows
238240 let aligns = replicate cols AlignLeft
239241 let widths = replicate cols 0
240− return [Table [] aligns widths head' rows]
242+ return [Table caption aligns widths head' rows]
241243
242244pCell :: String -> TagParser [TableCell]
243245pCell celltype = try $ do