Added getAuth function

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