git.iko.soy/typeable/pandoc
on master help sign in
HTML reader: don't fail on unmatched closing "script" tag.
875f8f3Albert Krewinkel
src/Text/Pandoc/Readers/HTML.hs+9−7
compare with master
unifiedsplit
@@ -942,13 +942,15 @@ getTagName (TagClose t) = Just t
942getTagName _ = Nothing
942getTagName _ = Nothing
943
943
944isInlineTag :: Tag Text -> Bool
944isInlineTag :: Tag Text -> Bool
945−isInlineTag t =
946− isCommentTag t ||
945+isInlineTag t = isCommentTag t || case t of
947− case getTagName t of
948− Nothing -> False
949− Just "script" -> "math/tex" `T.isPrefixOf` fromAttrib "type" t
946+ TagOpen "script" _ -> "math/tex" `T.isPrefixOf` fromAttrib "type" t
947+ TagClose "script" -> True
948+ TagOpen name _ -> isInlineTagName name
949+ TagClose name -> isInlineTagName name
950+ _ -> False
951+ where isInlineTagName x =
950− Just x -> x `Set.notMember` blockTags ||
952+ x `Set.notMember` blockTags ||
951− T.take 1 x == "?" -- processing instr.
953+ T.take 1 x == "?" -- processing instr.
952
954
953isBlockTag :: Tag Text -> Bool
955isBlockTag :: Tag Text -> Bool
954isBlockTag t = isBlockTagName || isTagComment t
956isBlockTag t = isBlockTagName || isTagComment t
test/command/7282.mdnew file+7
@@ -0,0 +1,7 @@
1+Don't crash on unmatched closing tag.
2+```
3+% pandoc -f html -t native
4+</script>
5+^D
6+[]
7+```