diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-08-01 11:55:55 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-08-01 11:56:15 -0700 |
| commit | 6c639d342069152f1e1bfd7d759b233539f147cc (patch) | |
| tree | a1b12092a35cb06b88d635418c13a8d8563ed2c0 /src/Text/Pandoc/Readers | |
| parent | bf26ae1dbdafd4cea1bb998ab936eddb70cea181 (diff) | |
| download | pandoc-6c639d342069152f1e1bfd7d759b233539f147cc.tar.gz | |
HTML reader: Fixed bug parsing tables w both thead and tbody.
See bug #274, which was not completely fixed by the last patch.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -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 7c882f680..2ad2c8e0f 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -215,6 +215,7 @@ pSimpleTable = try $ do TagOpen _ _ <- pSatisfy (~== TagOpen "table" []) skipMany pBlank head' <- option [] $ pOptInTag "thead" $ pInTags "tr" (pCell "th") + skipMany pBlank rows <- pOptInTag "tbody" $ many1 $ try $ skipMany pBlank >> pInTags "tr" (pCell "td") skipMany pBlank |