haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-09-11 03:44:57 +02:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

removed commented code and inlined basicPlugin. #24

Browse Source
This commit is contained in:
jprider63 2015-03-18 16:11:38 -04:00
parent 999864af36
commit 5275df8195
1 changed files with 1 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
Yesod/Auth/OAuth2/Github.hs
View File

@ -67,7 +67,7 @@ oauth2GithubScoped :: YesodAuth m
-> Text -- ^ Client Secret -> Text -- ^ Client Secret
-> [Text] -- ^ List of scopes to request -> [Text] -- ^ List of scopes to request
-> AuthPlugin m -> AuthPlugin m
oauth2GithubScoped clientId clientSecret scopes = basicPlugin -- {apDispatch = dispatch} oauth2GithubScoped clientId clientSecret scopes = authOAuth2 "github" oauth fetchGithubProfile
where where
oauth = OAuth2 oauth = OAuth2
{ oauthClientId = encodeUtf8 clientId { oauthClientId = encodeUtf8 clientId
@ -77,28 +77,6 @@ oauth2GithubScoped clientId clientSecret scopes = basicPlugin -- {apDispatch = d
, oauthCallback = Nothing , oauthCallback = Nothing
} }
-- withState state = authOAuth2 "github"
-- (oauth {oauthOAuthorizeEndpoint = oauthOAuthorizeEndpoint oauth `BS.append` "&state=" `BS.append` encodeUtf8 state})
-- fetchGithubProfile
basicPlugin = authOAuth2 "github" oauth fetchGithubProfile
-- dispatch "GET" ["forward"] = do
-- state <- liftIO $ fmap (T.pack . toString) nextRandom
-- setSession "githubState" state
-- apDispatch (withState state) "GET" ["forward"]
-- dispatch "GET" ["callback"] = do
-- state <- lift $ runInputGet $ ireq textField "state"
-- savedState <- lookupSession "githubState"
-- _ <- apDispatch basicPlugin "GET" ["callback"]
-- case savedState of
-- Just saved | saved == state -> apDispatch basicPlugin "GET" ["callback"]
-- Just saved -> invalidArgs ["state: " `mappend` state `mappend` ", and not: " `mappend` saved]
-- _ -> invalidArgs ["state: " `mappend` state]
-- dispatch method ps = apDispatch basicPlugin method ps
fetchGithubProfile :: Manager -> AccessToken -> IO (Creds m) fetchGithubProfile :: Manager -> AccessToken -> IO (Creds m)
fetchGithubProfile manager token = do fetchGithubProfile manager token = do
userResult <- authGetJSON manager token "https://api.github.com/user" userResult <- authGetJSON manager token "https://api.github.com/user"