diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-30 10:05:53 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-30 10:05:53 -0800 |
| commit | 92acb24486129912ca967260bd8bb00990bf7013 (patch) | |
| tree | fc6d0a2de5fe7480eb9cc7aee126004a189aa269 /src | |
| parent | db41078dd3c57e3ba552162150418f9dd9af9277 (diff) | |
| download | pandoc-92acb24486129912ca967260bd8bb00990bf7013.tar.gz | |
HTML reader: Handle colgroup tag.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index 76bce9971..c06faff1b 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -215,7 +215,8 @@ pSimpleTable = try $ do TagOpen _ _ <- pSatisfy (~== TagOpen "table" []) skipMany pBlank caption <- option [] $ pInTags "caption" inline >>~ skipMany pBlank - skipMany $ pInTags "col" block >> skipMany pBlank + skipMany $ (pInTags "col" block >> skipMany pBlank) <|> + (pInTags "colgroup" block >> skipMany pBlank) head' <- option [] $ pOptInTag "thead" $ pInTags "tr" (pCell "th") skipMany pBlank rows <- pOptInTag "tbody" |