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

getSession

Browse Source
This commit is contained in:
Michael Snoyman 2010-10-26 10:31:07 +02:00
parent 7dd1b4cba8
commit d3a9201b27
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Yesod/Handler.hs
View File

@ -58,7 +58,9 @@ module Yesod.Handler
, alreadyExpired , alreadyExpired
, expiresAt , expiresAt
-- * Session -- * Session
, SessionMap
, lookupSession , lookupSession
, getSession
, setSession , setSession
, deleteSession , deleteSession
-- ** Ultimate destination -- ** Ultimate destination
@ -483,6 +485,10 @@ lookupSession n = GHandler $ do
m <- lift $ lift $ lift get m <- lift $ lift $ lift get
return $ Map.lookup n m return $ Map.lookup n m
-- | Get all session variables.
getSession :: GHandler s m SessionMap
getSession = GHandler $ lift $ lift $ lift get
#if TEST #if TEST
testSuite :: Test testSuite :: Test