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

Added getAuth function

Browse Source
This commit is contained in:
Michael Snoyman 2010-05-04 17:30:23 +03:00
parent f1fc97eda0
commit 746754d510
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yesod/Helpers/Auth.hs
View File

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