| Safe Haskell | None |
|---|---|
| Language | Haskell98 |
Happstack.Auth
- newtype UserId = UserId {}
- data AuthState = AuthState {
- userPasses :: UserPasses
- nextUserPassId :: UserPassId
- authMaps :: AuthMaps
- nextAuthId :: AuthId
- authTokens :: AuthTokens
- defaultSessionTimeout :: Int
- data ProfileState = ProfileState {}
- data AuthProfileURL
- data AuthURL
- data ProfileURL
- getUserId :: (Alternative m, Happstack m) => AcidState AuthState -> AcidState ProfileState -> m (Maybe UserId)
- authProfileHandler :: Happstack m => Text -> Text -> AcidState AuthState -> AcidState ProfileState -> (String -> Html -> Html -> m Response) -> Maybe Credentials -> Maybe Text -> Text -> m Response
- handleAuth :: (Happstack m, MonadRoute m, URL m ~ AuthURL) => AcidState AuthState -> (String -> Html -> Html -> m Response) -> Maybe Credentials -> Maybe Text -> Text -> AuthURL -> m Response
- handleProfile :: (Happstack m, Alternative m, MonadRoute m, URL m ~ ProfileURL) => AcidState AuthState -> AcidState ProfileState -> (String -> Html -> Html -> m Response) -> Text -> ProfileURL -> m Response
- handleAuthProfile :: forall m. (Happstack m, MonadRoute m, URL m ~ AuthProfileURL) => AcidState AuthState -> AcidState ProfileState -> (String -> Html -> Html -> m Response) -> Maybe Credentials -> Maybe Text -> Text -> AuthProfileURL -> m Response
- handleAuthProfileRouteT :: forall m. Happstack m => AcidState AuthState -> AcidState ProfileState -> (String -> Html -> Html -> m Response) -> Maybe Credentials -> Maybe Text -> Text -> AuthProfileURL -> RouteT AuthProfileURL m Response
Documentation
Constructors
| AuthState | |
Fields
| |
data ProfileState Source
Constructors
| ProfileState | |
Fields
| |
data AuthProfileURL Source
Constructors
| AuthURL AuthURL | |
| ProfileURL ProfileURL |
data ProfileURL Source
Constructors
| P_SetPersonality UserId | |
| P_SetAuthId AuthId | |
| P_PickProfile |
getUserId :: (Alternative m, Happstack m) => AcidState AuthState -> AcidState ProfileState -> m (Maybe UserId) Source
Arguments
| :: Happstack m | |
| => Text | baseURI for this server part |
| -> Text | unique path prefix |
| -> AcidState AuthState | handle for 'AcidState AuthState' |
| -> AcidState ProfileState | handle for 'AcidState ProfileState' |
| -> (String -> Html -> Html -> m Response) | template function used to render pages |
| -> Maybe Credentials | optional Facebook |
| -> Maybe Text | optional realm to use for |
| -> Text | url to redirect to if authentication and profile selection is successful |
| -> m Response |
this is a simple entry point into happstack-authenticate that
provides reasonable default behavior. A majority of the time you
will just call this function.
Arguments
| :: (Happstack m, MonadRoute m, URL m ~ AuthURL) | |
| => AcidState AuthState | database handle for |
| -> (String -> Html -> Html -> m Response) | page template function |
| -> Maybe Credentials | config information for facebook connect |
| -> Maybe Text | authentication realm |
| -> Text | URL to redirect to after succesful authentication |
| -> AuthURL | url to route |
| -> m Response |
Function which takes care of all AuthURL routes.
The caller provides a page template function which will be used to render pages. The provided page template function takes three arguments:
String -- ^ string to use in the <title> tag -> Html -- ^ extra headers to add to the <head> tag -> Html -- ^ contents to stick in the <body> tag
Arguments
| :: (Happstack m, Alternative m, MonadRoute m, URL m ~ ProfileURL) | |
| => AcidState AuthState | database handle for |
| -> AcidState ProfileState | database handle for |
| -> (String -> Html -> Html -> m Response) | page template function |
| -> Text | URL to redirect to after successfully picking an identity |
| -> ProfileURL | URL to route |
| -> m Response |
Function which takes care of all ProfileURL routes.
The caller provides a page template function which will be used to render pages. The provided page template function takes three arguments:
String -- ^ string to use in the <title> tag -> Html -- ^ extra headers to add to the <head> tag -> Html -- ^ contents to stick in the <body> tag
handleAuthProfile :: forall m. (Happstack m, MonadRoute m, URL m ~ AuthProfileURL) => AcidState AuthState -> AcidState ProfileState -> (String -> Html -> Html -> m Response) -> Maybe Credentials -> Maybe Text -> Text -> AuthProfileURL -> m Response Source
handleAuthProfileRouteT :: forall m. Happstack m => AcidState AuthState -> AcidState ProfileState -> (String -> Html -> Html -> m Response) -> Maybe Credentials -> Maybe Text -> Text -> AuthProfileURL -> RouteT AuthProfileURL m Response Source