@@ -380,7 +380,7 @@ pTable = try $ do
380380 skipMany pBlank
381381 caption <- option mempty $ pInTags "caption" inline <* skipMany pBlank
382382 -- TODO actually read these and take width information from them
383− widths' <- pColgroup <|> many pCol
383+ widths' <- (mconcat <$> many1 pColgroup) <|> many pCol
384384 let pTh = option [] $ pInTags "tr" (pCell "th")
385385 pTr = try $ skipMany pBlank >> pInTags "tr" (pCell "td" <|> pCell "th")
386386 pTBody = do pOptInTag "tbody" $ many1 pTr