haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-01-21 08:31:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add charId to credsExtra

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

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

@ -7,7 +7,7 @@
--
-- * Authenticates against eveonline
-- * Uses EVEs unique account-user-char-hash as credentials identifier
-- * Returns charName, tokenType, accessToken and expires as extras
-- * Returns charName, charId, tokenType, accessToken and expires as extras
--
module Yesod.Auth.OAuth2.EveOnline
( oauth2Eve
@ -46,6 +46,7 @@ data EveUser = EveUser
, eveUserExpire :: Text
, eveTokenType :: Text
, eveCharOwnerHash :: Text
, eveCharId :: Integer
}
instance FromJSON EveUser where
@ -54,6 +55,7 @@ instance FromJSON EveUser where
<*> o .: "ExpiresOn"
<*> o .: "TokenType"
<*> o .: "CharacterOwnerHash"
<*> o .: "CharacterID"
parseJSON _ = mzero
@ -105,6 +107,7 @@ toCreds user token = Creds
, credsIdent = T.pack $ show $ eveCharOwnerHash user
, credsExtra =
[ ("charName", eveUserName user)
, ("charId", T.pack . show . eveCharId $ user)
, ("tokenType", eveTokenType user)
, ("expires", eveUserExpire user)
, ("accessToken", decodeUtf8 . accessToken $ token)