haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cookie with 0 minutes == no expires attribute

Browse Source
This commit is contained in:
Michael Snoyman 2011-05-12 07:25:25 +03:00
parent dc737a397d
commit 0859d92efc
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Yesod/Handler.hs
View File

@ -748,7 +748,10 @@ headerToPair cp getExpires (AddCookie minutes key value) =
{ setCookieName = key { setCookieName = key
, setCookieValue = value , setCookieValue = value
, setCookiePath = Just cp , setCookiePath = Just cp
, setCookieExpires = Just $ getExpires minutes , setCookieExpires =
if minutes == 0
then Nothing
else Just $ getExpires minutes
, setCookieDomain = Nothing , setCookieDomain = Nothing
}) })
headerToPair cp _ (DeleteCookie key) = headerToPair cp _ (DeleteCookie key) =