diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-15 00:56:53 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-15 00:56:53 +0000 |
| commit | 235e41f2464afbee31463f0edcd3a6ca579b7cfb (patch) | |
| tree | c18e7190c93577273e6dd9870ed9031dde847a50 | |
| parent | 7701a87a1a15bf531a0571cdee0d6df15b19ed77 (diff) | |
| download | pandoc-235e41f2464afbee31463f0edcd3a6ca579b7cfb.tar.gz | |
Commented out some unneeded code in HTML reader.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1325 788f1e2b-df1e-0410-8736-df70ead52e1b
| -rw-r--r-- | Text/Pandoc/Readers/HTML.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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 |