Cookie with 0 minutes == no expires attribute

2011-05-12 07:25:25 +03:00 · 2011-05-12 07:25:25 +03:00 · 0859d92efc
commit 0859d92efc
parent dc737a397d
1 changed files with 4 additions and 1 deletions
--- a/Yesod/Handler.hs
+++ b/Yesod/Handler.hs
@ -748,7 +748,10 @@ headerToPair cp getExpires (AddCookie minutes key value) =
        { setCookieName = key
        , setCookieValue = value
        , setCookiePath = Just cp
-        , setCookieExpires = Just $ getExpires minutes
+        , setCookieExpires =
+            if minutes == 0
+                then Nothing
+                else Just $ getExpires minutes
        , setCookieDomain = Nothing
        })
 headerToPair cp _ (DeleteCookie key) =