diff --git a/src/Data/HTTPSEverywhere/Rules/Internal/Parser.hs b/src/Data/HTTPSEverywhere/Rules/Internal/Parser.hs index 490e33b..8d5f34d 100644 --- a/src/Data/HTTPSEverywhere/Rules/Internal/Parser.hs +++ b/src/Data/HTTPSEverywhere/Rules/Internal/Parser.hs @@ -59,4 +59,4 @@ parseCookieRule :: Element -> Maybe CookieRule parseCookieRule element = CookieRule <$> do hostMatches <- element ^. attr "host" . to (>>= match) nameMatches <- element ^. attr "name" . to (>>= match) - return $ \Cookie{..} -> hostMatches (cs cookie_name) && nameMatches (cs cookie_domain) + return $ \Cookie{..} -> nameMatches (cs cookie_name) && hostMatches (cs cookie_domain)