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