From d3a9201b27b4414df127a59a6a676c1af5f59f9b Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 26 Oct 2010 10:31:07 +0200
Subject: [PATCH] getSession

---
 Yesod/Handler.hs | 6 ++++++
 1 file changed, 6 insertions(+)

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