@@ -215,7 +215,8 @@ pSimpleTable = try $ do
215 TagOpen _ _ <- pSatisfy (~== TagOpen "table" [])
215 TagOpen _ _ <- pSatisfy (~== TagOpen "table" [])
216 skipMany pBlank
216 skipMany pBlank
217 caption <- option [] $ pInTags "caption" inline >>~ skipMany pBlank
217 caption <- option [] $ pInTags "caption" inline >>~ skipMany pBlank
218− skipMany $ pInTags "col" block >> skipMany pBlank
218+ skipMany $ (pInTags "col" block >> skipMany pBlank) <|>
219+ (pInTags "colgroup" block >> skipMany pBlank)
219 head' <- option [] $ pOptInTag "thead" $ pInTags "tr" (pCell "th")
220 head' <- option [] $ pOptInTag "thead" $ pInTags "tr" (pCell "th")
220 skipMany pBlank
221 skipMany pBlank
221 rows <- pOptInTag "tbody"
222 rows <- pOptInTag "tbody"