From f3a74cd4b6b48aa07982d18ee5616bd299da535d Mon Sep 17 00:00:00 2001
From: patrick brisbin <pbrisbin@gmail.com>
Date: Wed, 1 Jul 2015 11:46:48 -0400
Subject: [PATCH] Entirely remove unused fields

---
 Yesod/Auth/OAuth2/EveOnline.hs | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/Yesod/Auth/OAuth2/EveOnline.hs b/Yesod/Auth/OAuth2/EveOnline.hs
index 5c75615..b96b8c4 100644
--- a/Yesod/Auth/OAuth2/EveOnline.hs
+++ b/Yesod/Auth/OAuth2/EveOnline.hs
@@ -42,20 +42,16 @@ data WidgetType m
     | Custom (WidgetT m IO ())
 
 data EveUser = EveUser
-    { _eveUserId :: Int
-    , eveUserName :: Text
+    { eveUserName :: Text
     , eveUserExpire :: Text
-    , _eveScopes :: [Text]
     , eveTokenType :: Text
     , eveCharOwnerHash :: Text
     }
 
 instance FromJSON EveUser where
     parseJSON (Object o) = EveUser
-        <$> o .: "CharacterID"
-        <*> o .: "CharacterName"
+        <$> o .: "CharacterName"
         <*> o .: "ExpiresOn"
-        <*> (T.words <$> o .: "Scopes")
         <*> o .: "TokenType"
         <*> o .: "CharacterOwnerHash"