haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-08-30 00:13:51 +02:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Entirely remove unused fields

Browse Source
This commit is contained in:
patrick brisbin 2015-07-01 11:46:48 -04:00
parent a8396dddf0
commit f3a74cd4b6
No known key found for this signature in database
GPG Key ID: ADB6812F871D4478
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Yesod/Auth/OAuth2/EveOnline.hs
View File

@ -42,20 +42,16 @@ data WidgetType m
| Custom (WidgetT m IO ()) | Custom (WidgetT m IO ())
data EveUser = EveUser data EveUser = EveUser
{ _eveUserId :: Int { eveUserName :: Text
, eveUserName :: Text
, eveUserExpire :: Text , eveUserExpire :: Text
, _eveScopes :: [Text]
, eveTokenType :: Text , eveTokenType :: Text
, eveCharOwnerHash :: Text , eveCharOwnerHash :: Text
} }
instance FromJSON EveUser where instance FromJSON EveUser where
parseJSON (Object o) = EveUser parseJSON (Object o) = EveUser
<$> o .: "CharacterID" <$> o .: "CharacterName"
<*> o .: "CharacterName"
<*> o .: "ExpiresOn" <*> o .: "ExpiresOn"
<*> (T.words <$> o .: "Scopes")
<*> o .: "TokenType" <*> o .: "TokenType"
<*> o .: "CharacterOwnerHash" <*> o .: "CharacterOwnerHash"