haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-02-10 10:07:30 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Update README for new usage

Browse Source
This commit is contained in:
patrick brisbin 2014-09-22 15:02:28 -04:00
parent b5ce151f03
commit a5c691512e
No known key found for this signature in database
GPG Key ID: DB04E2CE780A17DE
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
README.md
View File

@ -8,13 +8,12 @@ To use one of the supported providers:
```haskell
import Yesod.Auth
import Yesod.Auth.OAuth2.Learn
import Yesod.Auth.OAuth2.Github
instance YesodAuth App where
-- ...
-- https://learn.thoughtbot.com
authPlugins _ = [oauth2Learn clientId clientSecret]
authPlugins _ = [oauth2Github clientId clientSecret]
clientId :: Text
clientId = "..."
@ -47,9 +46,9 @@ myPlugin = authOAuth2 "mysite"
})
makeCredentials
makeCredentials :: AccessToken -> IO (Creds m)
makeCredentials token = do
result <- authGetJSON token "https://mysite.com/api/me.json"
makeCredentials :: Manager -> AccessToken -> IO (Creds m)
makeCredentials manager token = do
result <- authGetJSON manager token "https://mysite.com/api/me.json"
return $ -- Parse the JSON into (Creds m)
```