Fixed Cookie parser -- fields and predicates were mismatched.

2014-08-24 14:00:27 +08:00 · 2014-08-24 14:00:27 +08:00 · 19a9a6b40d
parent eb144cc4dc
commit 19a9a6b40d
1 changed files with 1 additions and 1 deletions
--- 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)