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"