From 5dcfbea1a0424e80bb6239a8aa1e7fdd5af45789 Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Sun, 12 Jul 2015 18:27:02 +0200
Subject: [PATCH] Add accessToken to credsExtra

---
 Yesod/Auth/OAuth2/EveOnline.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/Yesod/Auth/OAuth2/EveOnline.hs b/Yesod/Auth/OAuth2/EveOnline.hs
index b96b8c4..111bb12 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 and expires as extras
+-- * Returns charName, tokenType, accessToken and expires as extras
 --
 module Yesod.Auth.OAuth2.EveOnline
     ( oauth2Eve
@@ -25,7 +25,7 @@ import Control.Monad (mzero)
 import Data.Aeson
 import Data.Monoid ((<>))
 import Data.Text (Text)
-import Data.Text.Encoding (encodeUtf8)
+import Data.Text.Encoding (encodeUtf8, decodeUtf8)
 import Network.HTTP.Conduit (Manager)
 import Yesod.Auth
 import Yesod.Auth.OAuth2
@@ -100,12 +100,13 @@ fetchEveProfile manager token = do
         Left err-> throwIO $ InvalidProfileResponse "eveonline" err
 
 toCreds :: EveUser -> AccessToken -> Creds m
-toCreds user _ = Creds
+toCreds user token = Creds
     { credsPlugin = "eveonline"
     , credsIdent = T.pack $ show $ eveCharOwnerHash user
     , credsExtra =
         [ ("charName", eveUserName user)
         , ("tokenType", eveTokenType user)
         , ("expires", eveUserExpire user)
+        , ("accessToken", decodeUtf8 . accessToken $ token)
         ]
     }