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

path, not value

Browse Source
This commit is contained in:
Chris Allen 2016-07-08 14:25:47 -05:00
parent 4a0caeb05c
commit 5e4cefc9ad
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -725,10 +725,10 @@ invalidArgsI msg = do
setCookie :: MonadHandler m => SetCookie -> m () setCookie :: MonadHandler m => SetCookie -> m ()
setCookie sc = do setCookie sc = do
addHeaderInternal (DeleteCookie name value) addHeaderInternal (DeleteCookie name path)
addHeaderInternal (AddCookie sc) addHeaderInternal (AddCookie sc)
where name = setCookieName sc where name = setCookieName sc
value = setCookieValue sc path = maybe "/" id (setCookiePath sc)
-- | Helper function for setCookieExpires value -- | Helper function for setCookieExpires value
getExpires :: MonadIO m getExpires :: MonadIO m

2
yesod-core/Yesod/Core/Types.hs
View File

@ -323,7 +323,7 @@ instance NFData ErrorResponse where
----- header stuff ----- header stuff
-- | Headers to be added to a 'Result'. -- | Headers to be added to a 'Result'.
data Header = data Header =
AddCookie SetCookie AddCookie SetCookie
| DeleteCookie ByteString ByteString | DeleteCookie ByteString ByteString
| Header ByteString ByteString | Header ByteString ByteString
deriving (Eq, Show) deriving (Eq, Show)