diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-05-21 23:05:00 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-05-21 23:05:00 -0700 |
| commit | 446cf6a1cfed364dfc0d01b39697ffde2310109d (patch) | |
| tree | c02b5d76c2e78b56b3267137623c9b67e178e1b4 /src | |
| parent | 2e266b6a3a76f78554a67bf53f8fe7ac1d989f31 (diff) | |
HTML reader: fixed bug in pClose.
This caused exponential parsing behavior in documnets
with unclosed tags in dl, dd, dt.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index 8ee5da543..164e3a98f 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -707,7 +707,7 @@ pCloses tagtype = try $ do (TagOpen t' _) | t' `closes` tagtype -> return () (TagClose "ul") | tagtype == "li" -> return () (TagClose "ol") | tagtype == "li" -> return () - (TagClose "dl") | tagtype == "li" -> return () + (TagClose "dl") | tagtype == "dd" -> return () (TagClose "table") | tagtype == "td" -> return () (TagClose "table") | tagtype == "tr" -> return () _ -> mzero |