summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2016-05-21 23:05:00 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2016-05-21 23:05:00 -0700
commit446cf6a1cfed364dfc0d01b39697ffde2310109d (patch)
treec02b5d76c2e78b56b3267137623c9b67e178e1b4
parent2e266b6a3a76f78554a67bf53f8fe7ac1d989f31 (diff)
HTML reader: fixed bug in pClose.
This caused exponential parsing behavior in documnets with unclosed tags in dl, dd, dt.
-rw-r--r--src/Text/Pandoc/Readers/HTML.hs2
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