235e41f · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Commented out some unneeded code in HTML reader.

235e41ffiddlosopher18 years ago

Text/Pandoc/Readers/HTML.hs+4

compare with master

unifiedsplit

@@ -64,12 +64,14 @@ eitherBlockOrInline :: [[Char]]

64eitherBlockOrInline = ["applet", "button", "del", "iframe", "ins",

65 "map", "area", "object"]

67+{-

67inlineHtmlTags :: [[Char]]

68inlineHtmlTags :: [[Char]]

68inlineHtmlTags = ["a", "abbr", "acronym", "b", "basefont", "bdo", "big",

69inlineHtmlTags = ["a", "abbr", "acronym", "b", "basefont", "bdo", "big",

69 "br", "cite", "code", "dfn", "em", "font", "i", "img",

70 "br", "cite", "code", "dfn", "em", "font", "i", "img",

70 "input", "kbd", "label", "q", "s", "samp", "select",

71 "input", "kbd", "label", "q", "s", "samp", "select",

71 "small", "span", "strike", "strong", "sub", "sup",

72 "small", "span", "strike", "strong", "sub", "sup",

72 "textarea", "tt", "u", "var"] ++ eitherBlockOrInline

73 "textarea", "tt", "u", "var"] ++ eitherBlockOrInline

74+-}

74blockHtmlTags :: [[Char]]

76blockHtmlTags :: [[Char]]

75blockHtmlTags = ["address", "blockquote", "body", "center", "dir", "div",

77blockHtmlTags = ["address", "blockquote", "body", "center", "dir", "div",

@@ -271,9 +273,11 @@ htmlEndTag tag = try $ do

271 char '>'

273 char '>'

272 return $ "</" ++ tag ++ ">"

274 return $ "</" ++ tag ++ ">"

273

275

276+{-

274-- | Returns @True@ if the tag is (or can be) an inline tag.

277-- | Returns @True@ if the tag is (or can be) an inline tag.

275isInline :: String -> Bool

278isInline :: String -> Bool

276isInline tag = (extractTagType tag) `elem` inlineHtmlTags

279isInline tag = (extractTagType tag) `elem` inlineHtmlTags

280+-}

277

281

278-- | Returns @True@ if the tag is (or can be) a block tag.

282-- | Returns @True@ if the tag is (or can be) a block tag.

279isBlock :: String -> Bool

283isBlock :: String -> Bool