@@ -64,12 +64,14 @@ eitherBlockOrInline :: [[Char]]
6464eitherBlockOrInline = ["applet", "button", "del", "iframe", "ins",
6565 "map", "area", "object"]
6666
67+{-
6768inlineHtmlTags :: [[Char]]
6869inlineHtmlTags = ["a", "abbr", "acronym", "b", "basefont", "bdo", "big",
6970 "br", "cite", "code", "dfn", "em", "font", "i", "img",
7071 "input", "kbd", "label", "q", "s", "samp", "select",
7172 "small", "span", "strike", "strong", "sub", "sup",
7273 "textarea", "tt", "u", "var"] ++ eitherBlockOrInline
74+-}
7375
7476blockHtmlTags :: [[Char]]
7577blockHtmlTags = ["address", "blockquote", "body", "center", "dir", "div",
@@ -271,9 +273,11 @@ htmlEndTag tag = try $ do
271273 char '>'
272274 return $ "</" ++ tag ++ ">"
273275
276+{-
274277-- | Returns @True@ if the tag is (or can be) an inline tag.
275278isInline :: String -> Bool
276279isInline tag = (extractTagType tag) `elem` inlineHtmlTags
280+-}
277281
278282-- | Returns @True@ if the tag is (or can be) a block tag.
279283isBlock :: String -> Bool