From 0859d92efc9192f727bc0a229f4a1dafc8fe9224 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 12 May 2011 07:25:25 +0300
Subject: [PATCH] Cookie with 0 minutes == no expires attribute

---
 Yesod/Handler.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Yesod/Handler.hs b/Yesod/Handler.hs
index 19d4941d..9346bca6 100644
--- 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) =