From 2df432dc60b104a63bd32bc10662303313b453f9 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Tue, 8 Jan 2008 04:53:01 +0000
Subject: Changed comment used to replace unsafe HTML if sanitize-html option
 selected.

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

(limited to 'Text')

diff --git a/Text/Pandoc/Readers/HTML.hs b/Text/Pandoc/Readers/HTML.hs
index 42a085f63..7c90b14b8 100644
--- a/Text/Pandoc/Readers/HTML.hs
+++ b/Text/Pandoc/Readers/HTML.hs
@@ -159,7 +159,7 @@ anyHtmlTag = try $ do
                concatMap (\(_, _, raw) -> (' ':raw)) attribs ++ ender' ++ ">"
   unsanitary <- unsanitaryTag tag
   if unsanitary
-     then return $ "<!-- unsafe tag " ++ result ++ " omitted -->"
+     then return $ "<!-- unsafe HTML removed -->"
      else return result
 
 anyHtmlEndTag = try $ do
@@ -173,7 +173,7 @@ anyHtmlEndTag = try $ do
   let result = "</" ++ tag ++ ">"
   unsanitary <- unsanitaryTag tag
   if unsanitary
-     then return $ "<!-- unsafe tag " ++ result ++ " omitted -->"
+     then return $ "<!-- unsafe HTML removed -->"
      else return result 
 
 htmlTag :: String -> GenParser Char ParserState (String, [(String, String)])
@@ -255,7 +255,7 @@ htmlScript = try $ do
   rest <- manyTill anyChar (htmlEndTag "script")
   st <- getState
   if stateSanitizeHTML st && not ("script" `elem` sanitaryTags)
-     then return "<!-- unsafe script omitted -->"
+     then return "<!-- unsafe HTML removed -->"
      else return $ open ++ rest ++ "</script>"
 
 -- | Parses material between style tags.
@@ -265,7 +265,7 @@ htmlStyle = try $ do
   rest <- manyTill anyChar (htmlEndTag "style")
   st <- getState
   if stateSanitizeHTML st && not ("style" `elem` sanitaryTags)
-     then return "<!-- unsafe style omitted -->"
+     then return "<!-- unsafe HTML removed -->"
      else return $ open ++ rest ++ "</style>"
 
 htmlBlockElement = choice [ htmlScript, htmlStyle, htmlComment, xmlDec, definition ]
-- 
cgit v1.2.3