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

clearSession

Browse Source
This commit is contained in:
Michael Snoyman 2012-04-10 18:55:57 +03:00
parent ba4cd002e1
commit 74a826fbb4
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
yesod-core/Yesod/Handler.hs
View File

@ -76,6 +76,7 @@ module Yesod.Handler
, setSession
, setSessionBS
, deleteSession
, clearSession
-- ** Ultimate destination
, setUltDest
, setUltDestCurrent
@ -700,6 +701,12 @@ setSessionBS k = modify . modSession . Map.insert k
deleteSession :: Text -> GHandler sub master ()
deleteSession = modify . modSession . Map.delete
-- | Clear all session variables.
--
-- Since: 1.0.1
clearSession :: GHandler sub master ()
clearSession = modify $ \x -> x { ghsSession = Map.empty }
modSession :: (SessionMap -> SessionMap) -> GHState -> GHState
modSession f x = x { ghsSession = f $ ghsSession x }