@@ -262,6 +262,7 @@ pTable = try $ do
262pCol :: TagParser Double
262pCol :: TagParser Double
263pCol = try $ do
263pCol = try $ do
264 TagOpen _ attribs <- pSatisfy (~== TagOpen "col" [])
264 TagOpen _ attribs <- pSatisfy (~== TagOpen "col" [])
265 optional $ pSatisfy (~== TagClose "col")
266 optional $ pSatisfy (~== TagClose "col")
266 skipMany pBlank
267 skipMany pBlank
267 return $ case lookup "width" attribs of
268 return $ case lookup "width" attribs of