diff options
author | John MacFarlane <jgm@berkeley.edu> | 2010-12-10 12:26:03 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-10 12:26:03 -0800 |
commit | 5770ceca36a7ab15ad43b3d949c749f6425ecbcb (patch) | |
tree | 64eb14cbc2c48e2ad8a91976fd7b875f44168fb5 /src/pandoc.hs | |
parent | 17d48cf4afdbac5da3c0a241dd66dfec93a89b8e (diff) | |
download | pandoc-5770ceca36a7ab15ad43b3d949c749f6425ecbcb.tar.gz |
Removed HTML sanitization.
This is better done on the resulting HTML; use the xss-sanitize library
for this. xss-sanitize is based on pandoc's sanitization, but improves
it.
- Removed stateSanitize from ParserState.
- Removed --sanitize-html option.
Diffstat (limited to 'src/pandoc.hs')
-rw-r--r-- | src/pandoc.hs | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/src/pandoc.hs b/src/pandoc.hs index 3aa9a4ba8..4feaab559 100644 --- a/src/pandoc.hs +++ b/src/pandoc.hs @@ -155,7 +155,6 @@ data Opt = Opt , optStrict :: Bool -- ^ Use strict markdown syntax , optReferenceLinks :: Bool -- ^ Use reference links in writing markdown, rst , optWrapText :: Bool -- ^ Wrap text - , optSanitizeHTML :: Bool -- ^ Sanitize HTML , optPlugins :: [Pandoc -> IO Pandoc] -- ^ Plugins to apply , optEmailObfuscation :: ObfuscationMethod , optIdentifierPrefix :: String @@ -194,7 +193,6 @@ defaultOpts = Opt , optStrict = False , optReferenceLinks = False , optWrapText = True - , optSanitizeHTML = False , optPlugins = [] , optEmailObfuscation = JavascriptObfuscation , optIdentifierPrefix = "" @@ -344,11 +342,6 @@ options = (\opt -> return opt { optWrapText = False })) "" -- "Do not wrap text in output" - , Option "" ["sanitize-html"] - (NoArg - (\opt -> return opt { optSanitizeHTML = True })) - "" -- "Sanitize HTML" - , Option "" ["email-obfuscation"] (ReqArg (\arg opt -> do @@ -673,7 +666,6 @@ main = do , optStrict = strict , optReferenceLinks = referenceLinks , optWrapText = wrap - , optSanitizeHTML = sanitize , optEmailObfuscation = obfuscationMethod , optIdentifierPrefix = idPrefix , optIndentedCodeClasses = codeBlockClasses @@ -772,7 +764,6 @@ main = do let startParserState = defaultParserState { stateParseRaw = parseRaw, stateTabStop = tabStop, - stateSanitizeHTML = sanitize, stateLiterateHaskell = "+lhs" `isSuffixOf` readerName' || lhsExtension sources, stateStandalone = standalone', |