haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-04-29 14:14:52 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add accessToken to credsExtra

Browse Source
This commit is contained in:
Stefan Dresselhaus 2015-07-12 18:27:02 +02:00 committed by patrick brisbin
parent f3a74cd4b6
commit 5dcfbea1a0
No known key found for this signature in database
GPG Key ID: ADB6812F871D4478
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Yesod/Auth/OAuth2/EveOnline.hs
View File

@ -7,7 +7,7 @@
-- --
-- * Authenticates against eveonline -- * Authenticates against eveonline
-- * Uses EVEs unique account-user-char-hash as credentials identifier -- * Uses EVEs unique account-user-char-hash as credentials identifier
-- * Returns charName, tokenType and expires as extras -- * Returns charName, tokenType, accessToken and expires as extras
-- --
module Yesod.Auth.OAuth2.EveOnline module Yesod.Auth.OAuth2.EveOnline
( oauth2Eve ( oauth2Eve
@ -25,7 +25,7 @@ import Control.Monad (mzero)
import Data.Aeson import Data.Aeson
import Data.Monoid ((<>)) import Data.Monoid ((<>))
import Data.Text (Text) import Data.Text (Text)
import Data.Text.Encoding (encodeUtf8) import Data.Text.Encoding (encodeUtf8, decodeUtf8)
import Network.HTTP.Conduit (Manager) import Network.HTTP.Conduit (Manager)
import Yesod.Auth import Yesod.Auth
import Yesod.Auth.OAuth2 import Yesod.Auth.OAuth2
@ -100,12 +100,13 @@ fetchEveProfile manager token = do
Left err-> throwIO $ InvalidProfileResponse "eveonline" err Left err-> throwIO $ InvalidProfileResponse "eveonline" err
toCreds :: EveUser -> AccessToken -> Creds m toCreds :: EveUser -> AccessToken -> Creds m
toCreds user _ = Creds toCreds user token = Creds
{ credsPlugin = "eveonline" { credsPlugin = "eveonline"
, credsIdent = T.pack $ show $ eveCharOwnerHash user , credsIdent = T.pack $ show $ eveCharOwnerHash user
, credsExtra = , credsExtra =
[ ("charName", eveUserName user) [ ("charName", eveUserName user)
, ("tokenType", eveTokenType user) , ("tokenType", eveTokenType user)
, ("expires", eveUserExpire user) , ("expires", eveUserExpire user)
, ("accessToken", decodeUtf8 . accessToken $ token)
] ]
} }