This commit is contained in:
patrick brisbin 2014-02-15 16:05:59 -05:00
parent 7536e7f25f
commit 4b6cb31ba9
2 changed files with 4 additions and 4 deletions

View File

@ -29,9 +29,9 @@ authOAuth2 :: YesodAuth m
-> OAuth2 -- ^ Service details -> OAuth2 -- ^ Service details
-- | This function defines how to take an @'AccessToken'@ and -- | This function defines how to take an @'AccessToken'@ and
-- retrive additional information about the user, to be set -- retrieve additional information about the user, to be
-- in the session as @'Creds'@. Usually this means a second -- set in the session as @'Creds'@. Usually this means a
-- authorized request to @api/me.json@. -- second authorized request to @api/me.json@.
-> (AccessToken -> IO (Creds m)) -> (AccessToken -> IO (Creds m))
-> AuthPlugin m -> AuthPlugin m
authOAuth2 name oauth getCreds = AuthPlugin name dispatch login authOAuth2 name oauth getCreds = AuthPlugin name dispatch login

View File

@ -1,7 +1,7 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
-- | -- |
-- --
-- OAuth2 plugin for http://learn.thoughbot.com -- OAuth2 plugin for http://learn.thoughtbot.com
-- --
-- * Authenticates against learn -- * Authenticates against learn
-- * Uses learn user id as credentials identifier -- * Uses learn user id as credentials identifier