diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-02-16 11:05:51 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-02-16 11:05:51 -0800 |
| commit | b8dadc608a565e3aa20194d90c89e004ac3cdb9a (patch) | |
| tree | 21c2089d2932de368731ca6fdbd6195a525f0b1a /src/Text/Pandoc/Readers | |
| parent | 09bc31a7ccc09ba99f48f32356b3d26328a64048 (diff) | |
| download | pandoc-b8dadc608a565e3aa20194d90c89e004ac3cdb9a.tar.gz | |
HTML reader: properly handle an empty cell in a simple table.
Closes #2718.
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 773ef6597..23add159e 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -445,6 +445,7 @@ pTable = try $ do -- fail on empty table guard $ not $ null head' && null rows let isSinglePlain x = case B.toList x of + [] -> True [Plain _] -> True _ -> False let isSimple = all isSinglePlain $ concat (head':rows) |