From 9bf2a9194c56284e0cd59622054c929c8897279c Mon Sep 17 00:00:00 2001 From: vi Date: Sun, 17 Aug 2014 08:39:56 +0800 Subject: [PATCH] Fixed exclusion matching. --- src/Data/HTTPSEverywhere/Rules/Internal.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Data/HTTPSEverywhere/Rules/Internal.hs b/src/Data/HTTPSEverywhere/Rules/Internal.hs index 632cbee..17e8b27 100644 --- a/src/Data/HTTPSEverywhere/Rules/Internal.hs +++ b/src/Data/HTTPSEverywhere/Rules/Internal.hs @@ -51,7 +51,7 @@ hasTargetMatching ruleset url = getTargets ruleset <*> [url] & or where getTargets = getTarget <$$> ruleSetTargets hasExclusionMatching :: RuleSet -> URI -> Bool -hasExclusionMatching ruleset url = getExclusions ruleset <*> [url] & or & not +hasExclusionMatching ruleset url = getExclusions ruleset <*> [url] & or where getExclusions = getExclusion <$$> ruleSetExclusions hasTriggeringRuleOn :: RuleSet -> URI -> Maybe URI -- Nothing ~ False