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

Fix authBrowserId

Browse Source
This commit is contained in:
Michael Snoyman 2012-01-01 17:16:33 +02:00
parent 1f2e451370
commit 6936331a37
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
yesod-auth/Yesod/Auth/BrowserId.hs
View File

@ -4,6 +4,7 @@
module Yesod.Auth.BrowserId module Yesod.Auth.BrowserId
( authBrowserId ( authBrowserId
, authBrowserId' , authBrowserId'
, authBrowserIdAudience
) where ) where
import Yesod.Auth import Yesod.Auth
@ -23,10 +24,10 @@ pid = "browserid"
complete :: AuthRoute complete :: AuthRoute
complete = PluginR pid [] complete = PluginR pid []
authBrowserId :: YesodAuth m authBrowserIdAudience :: YesodAuth m
=> Text -- ^ audience => Text -- ^ audience
-> AuthPlugin m -> AuthPlugin m
authBrowserId audience = AuthPlugin authBrowserIdAudience audience = AuthPlugin
{ apName = pid { apName = pid
, apDispatch = \m ps -> , apDispatch = \m ps ->
case (m, ps) of case (m, ps) of
@ -50,8 +51,8 @@ authBrowserId audience = AuthPlugin
|] |]
} }
authBrowserId' :: YesodAuth m => AuthPlugin m authBrowserId :: YesodAuth m => AuthPlugin m
authBrowserId' = AuthPlugin authBrowserId = AuthPlugin
{ apName = pid { apName = pid
, apDispatch = \m ps -> , apDispatch = \m ps ->
case (m, ps) of case (m, ps) of
@ -79,3 +80,7 @@ authBrowserId' = AuthPlugin
} }
where where
stripScheme t = fromMaybe t $ T.stripPrefix "//" $ snd $ T.breakOn "//" t stripScheme t = fromMaybe t $ T.stripPrefix "//" $ snd $ T.breakOn "//" t
authBrowserId' :: YesodAuth m => AuthPlugin m
authBrowserId' = authBrowserId
{-# DEPRECATED authBrowserId' "Use authBrowserId instead" #-}