haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-04-26 20:57:48 +02: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 -- * 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, accessToken and expires as extras -- * Returns charName, charId, tokenType, accessToken and expires as extras
-- --
module Yesod.Auth.OAuth2.EveOnline module Yesod.Auth.OAuth2.EveOnline
( oauth2Eve ( oauth2Eve
@ -46,6 +46,7 @@ data EveUser = EveUser
, eveUserExpire :: Text , eveUserExpire :: Text
, eveTokenType :: Text , eveTokenType :: Text
, eveCharOwnerHash :: Text , eveCharOwnerHash :: Text
, eveCharId :: Integer
} }
instance FromJSON EveUser where instance FromJSON EveUser where
@ -54,6 +55,7 @@ instance FromJSON EveUser where
<*> o .: "ExpiresOn" <*> o .: "ExpiresOn"
<*> o .: "TokenType" <*> o .: "TokenType"
<*> o .: "CharacterOwnerHash" <*> o .: "CharacterOwnerHash"
<*> o .: "CharacterID"
parseJSON _ = mzero parseJSON _ = mzero
@ -105,6 +107,7 @@ toCreds user token = Creds
, credsIdent = T.pack $ show $ eveCharOwnerHash user , credsIdent = T.pack $ show $ eveCharOwnerHash user
, credsExtra = , credsExtra =
[ ("charName", eveUserName user) [ ("charName", eveUserName user)
, ("charId", T.pack . show . eveCharId $ user)
, ("tokenType", eveTokenType user) , ("tokenType", eveTokenType user)
, ("expires", eveUserExpire user) , ("expires", eveUserExpire user)
, ("accessToken", decodeUtf8 . accessToken $ token) , ("accessToken", decodeUtf8 . accessToken $ token)