diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-06-19 23:24:28 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-06-19 23:24:28 -0700 |
commit | 3c059dbe600608f4166b02c63d7153ace3156665 (patch) | |
tree | 1d847804b3387a7fc1789847281416fd59d3d4a8 | |
parent | 0d8e0e567479e723c986b2384c39a997f9065fa2 (diff) | |
download | pandoc-3c059dbe600608f4166b02c63d7153ace3156665.tar.gz |
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>
```
-rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index d27afc543..204239923 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -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 |