Merge pull request #792 from geraldus/auth-minor-improvements
pre-baked Route Auth value
This commit is contained in:
commit
4fd1f76b17
@ -9,6 +9,7 @@ module Yesod.Auth.BrowserId
|
|||||||
, BrowserIdSettings
|
, BrowserIdSettings
|
||||||
, bisAudience
|
, bisAudience
|
||||||
, bisLazyLoad
|
, bisLazyLoad
|
||||||
|
, forwardUrl
|
||||||
) where
|
) where
|
||||||
|
|
||||||
import Yesod.Auth
|
import Yesod.Auth
|
||||||
@ -28,8 +29,11 @@ import Data.Default
|
|||||||
pid :: Text
|
pid :: Text
|
||||||
pid = "browserid"
|
pid = "browserid"
|
||||||
|
|
||||||
complete :: Route Auth
|
forwardUrl :: AuthRoute
|
||||||
complete = PluginR pid []
|
forwardUrl = PluginR pid []
|
||||||
|
|
||||||
|
complete :: AuthRoute
|
||||||
|
complete = forwardUrl
|
||||||
|
|
||||||
-- | A settings type for various configuration options relevant to BrowserID.
|
-- | A settings type for various configuration options relevant to BrowserID.
|
||||||
--
|
--
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user