From a6fc5ab03d93a78d7beab7a8aa75df5481cc3ba5 Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Sun, 12 Jul 2015 19:16:53 +0200
Subject: [PATCH] Add charId to credsExtra

---
 Yesod/Auth/OAuth2/EveOnline.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Yesod/Auth/OAuth2/EveOnline.hs b/Yesod/Auth/OAuth2/EveOnline.hs
index 111bb12..09d0413 100644
--- a/Yesod/Auth/OAuth2/EveOnline.hs
+++ b/Yesod/Auth/OAuth2/EveOnline.hs
@@ -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)