@@ -942,13 +942,15 @@ getTagName (TagClose t) = Just t
942942getTagName _ = Nothing
943943
944944isInlineTag :: Tag Text -> Bool
945−isInlineTag t =
946− isCommentTag t ||
947− case getTagName t of
948− Nothing -> False
949− Just "script" -> "math/tex" `T.isPrefixOf` fromAttrib "type" t
950− Just x -> x `Set.notMember` blockTags ||
951− T.take 1 x == "?" -- processing instr.
945+isInlineTag t = isCommentTag t || case t of
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 =
952+ x `Set.notMember` blockTags ||
953+ T.take 1 x == "?" -- processing instr.
952954
953955isBlockTag :: Tag Text -> Bool
954956isBlockTag t = isBlockTagName || isTagComment t