HTML reader: Handle colgroup tag.
commit92acb24486129912ca967260bd8bb00990bf7013
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateWed 30 Jan 2013, 10:05 (14 years ago)
parentdb41078
src/Text/Pandoc/Readers/HTML.hs+2−1
@@ -215,7 +215,8 @@ pSimpleTable = try $ do
215215 TagOpen _ _ <- pSatisfy (~== TagOpen "table" [])
216216 skipMany pBlank
217217 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)
219220 head' <- option [] $ pOptInTag "thead" $ pInTags "tr" (pCell "th")
220221 skipMany pBlank
221222 rows <- pOptInTag "tbody"