From 746754d510a720cb400ee06a1d4117864eb2ffcf Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 4 May 2010 17:30:23 +0300
Subject: [PATCH] Added getAuth function

---
 Yesod/Helpers/Auth.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Yesod/Helpers/Auth.hs b/Yesod/Helpers/Auth.hs
index f3e56a40..b04dbb12 100644
--- a/Yesod/Helpers/Auth.hs
+++ b/Yesod/Helpers/Auth.hs
@@ -29,6 +29,7 @@ module Yesod.Helpers.Auth
     , siteAuth
     , LoginType (..)
     , YesodAuth (..)
+    , getAuth
     ) where
 
 import Web.Encodings
@@ -46,6 +47,9 @@ import Control.Exception (Exception)
 
 -- FIXME check referer header to determine destination
 
+getAuth :: a -> Auth
+getAuth = const Auth
+
 data LoginType = OpenId | Rpxnow
 
 class Yesod master => YesodAuth master where