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:
John MacFarlane 2014-06-19 23:24:28 -07:00
parent 0d8e0e5674
commit 3c059dbe60

View file

@ -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