@@ -215,6 +215,7 @@ pSimpleTable = try $ do
215 TagOpen _ _ <- pSatisfy (~== TagOpen "table" [])
215 TagOpen _ _ <- pSatisfy (~== TagOpen "table" [])
216 skipMany pBlank
216 skipMany pBlank
217 head' <- option [] $ pOptInTag "thead" $ pInTags "tr" (pCell "th")
217 head' <- option [] $ pOptInTag "thead" $ pInTags "tr" (pCell "th")
218 rows <- pOptInTag "tbody"
219 rows <- pOptInTag "tbody"
219 $ many1 $ try $ skipMany pBlank >> pInTags "tr" (pCell "td")
220 $ many1 $ try $ skipMany pBlank >> pInTags "tr" (pCell "td")
220 skipMany pBlank
221 skipMany pBlank