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

deleting cookie before adding to avoid duplicates for a test

Browse Source
This commit is contained in:
Chris Allen 2016-07-08 13:38:39 -05:00
parent 8bbe91cbfe
commit 4a0caeb05c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-core/Yesod/Core/Handler.hs
View File

@ -724,7 +724,11 @@ invalidArgsI msg = do
-- | Set the cookie on the client. -- | Set the cookie on the client.
setCookie :: MonadHandler m => SetCookie -> m () setCookie :: MonadHandler m => SetCookie -> m ()
setCookie = addHeaderInternal . AddCookie setCookie sc = do
addHeaderInternal (DeleteCookie name value)
addHeaderInternal (AddCookie sc)
where name = setCookieName sc
value = setCookieValue sc
-- | Helper function for setCookieExpires value -- | Helper function for setCookieExpires value
getExpires :: MonadIO m getExpires :: MonadIO m