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