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

Merge pull request #300 from meteficha/cookieDomain

Browse Source 
Session cookie domain
This commit is contained in:
Michael Snoyman 2012-03-21 21:31:06 -07:00
commit f69f0b0cba
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -274,6 +274,12 @@ class RenderRoute a => Yesod a where
cookiePath :: a -> S8.ByteString cookiePath :: a -> S8.ByteString
cookiePath _ = "/" cookiePath _ = "/"
-- | The domain value to set for cookies. By default, the
-- domain is not set, meaning cookies will be sent only to
-- the current domain.
cookieDomain :: a -> Maybe S8.ByteString
cookieDomain _ = Nothing
-- | Maximum allowed length of the request body, in bytes. -- | Maximum allowed length of the request body, in bytes.
maximumContentLength :: a -> Maybe (Route a) -> Int maximumContentLength :: a -> Maybe (Route a) -> Int
maximumContentLength _ _ = 2 * 1024 * 1024 -- 2 megabytes maximumContentLength _ _ = 2 * 1024 * 1024 -- 2 megabytes
@ -742,7 +748,7 @@ saveClientSession key timeout master _ now _ sess = do
, setCookieValue = sessionVal iv , setCookieValue = sessionVal iv
, setCookiePath = Just (cookiePath master) , setCookiePath = Just (cookiePath master)
, setCookieExpires = Just expires , setCookieExpires = Just expires
, setCookieDomain = Nothing , setCookieDomain = cookieDomain master
, setCookieHttpOnly = True , setCookieHttpOnly = True
}] }]
where where