From 235e41f2464afbee31463f0edcd3a6ca579b7cfb Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Tue, 15 Jul 2008 00:56:53 +0000
Subject: Commented out some unneeded code in HTML reader.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1325 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 Text/Pandoc/Readers/HTML.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Text/Pandoc')

diff --git a/Text/Pandoc/Readers/HTML.hs b/Text/Pandoc/Readers/HTML.hs
index be65214ad..72e54ed23 100644
--- a/Text/Pandoc/Readers/HTML.hs
+++ b/Text/Pandoc/Readers/HTML.hs
@@ -64,12 +64,14 @@ eitherBlockOrInline :: [[Char]]
 eitherBlockOrInline = ["applet", "button", "del", "iframe", "ins",
                   "map", "area", "object"]
 
+{-
 inlineHtmlTags :: [[Char]]
 inlineHtmlTags = ["a", "abbr", "acronym", "b", "basefont", "bdo", "big",
                   "br", "cite", "code", "dfn", "em", "font", "i", "img",
                   "input", "kbd", "label", "q", "s", "samp", "select",
                   "small", "span", "strike", "strong", "sub", "sup",
                   "textarea", "tt", "u", "var"] ++ eitherBlockOrInline
+-}
 
 blockHtmlTags :: [[Char]]
 blockHtmlTags = ["address", "blockquote", "body", "center", "dir", "div",
@@ -271,9 +273,11 @@ htmlEndTag tag = try $ do
   char '>'
   return $ "</" ++ tag ++ ">"
 
+{-
 -- | Returns @True@ if the tag is (or can be) an inline tag.
 isInline :: String -> Bool
 isInline tag = (extractTagType tag) `elem` inlineHtmlTags
+-}
 
 -- | Returns @True@ if the tag is (or can be) a block tag.
 isBlock :: String -> Bool
-- 
cgit v1.2.3