HTML reader: Allow space between <col>
and </col>
.
Test case: ``` <table border="1"> <colgroup> <col> </col> <col></col> </colgroup> <tbody> <tr> <td>X</td> <td>Y</td> </tr> <tr> <td>1</td> <td>2</td> </tr> </tbody> </table> ```
This commit is contained in:
parent
0d8e0e5674
commit
3c059dbe60
1 changed files with 1 additions and 0 deletions
|
@ -262,6 +262,7 @@ pTable = try $ do
|
|||
pCol :: TagParser Double
|
||||
pCol = try $ do
|
||||
TagOpen _ attribs <- pSatisfy (~== TagOpen "col" [])
|
||||
skipMany pBlank
|
||||
optional $ pSatisfy (~== TagClose "col")
|
||||
skipMany pBlank
|
||||
return $ case lookup "width" attribs of
|
||||
|
|
Loading…
Add table
Reference in a new issue