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

Better support for multiple cookie headers

Browse Source
This commit is contained in:
Michael Snoyman 2015-04-02 16:40:14 +03:00
parent c2e836bf3a
commit 882956255a
3 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-core/ChangeLog.md
View File

@ -1,3 +1,7 @@
## 1.4.9.1
* Deal better with multiple cookie headers
## 1.4.9 ## 1.4.9
* Add simple authentication helpers [#962](https://github.com/yesodweb/yesod/pull/962) * Add simple authentication helpers [#962](https://github.com/yesodweb/yesod/pull/962)

8
yesod-core/Yesod/Core/Class/Yesod.hs
View File

@ -695,11 +695,11 @@ loadClientSession key getCachedDate sessionName req = load
load = do load = do
date <- getCachedDate date <- getCachedDate
return (sess date, save date) return (sess date, save date)
sess date = fromMaybe Map.empty $ do sess date = Map.unions $ do
raw <- lookup "Cookie" $ W.requestHeaders req raw <- [v | (k, v) <- W.requestHeaders req, k == "Cookie"]
val <- lookup sessionName $ parseCookies raw val <- [v | (k, v) <- parseCookies raw, k == sessionName]
let host = "" -- fixme, properly lock sessions to client address let host = "" -- fixme, properly lock sessions to client address
decodeClientSession key date host val maybe [] return $ decodeClientSession key date host val
save date sess' = do save date sess' = do
-- We should never cache the IV! Be careful! -- We should never cache the IV! Be careful!
iv <- liftIO CS.randomIV iv <- liftIO CS.randomIV

2
yesod-core/yesod-core.cabal
View File

@ -1,5 +1,5 @@
name: yesod-core name: yesod-core
version: 1.4.9 version: 1.4.9.1
license: MIT license: MIT
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>