git.iko.soy/gogol
on develop help sign in
implemented toJSON and drop toEncoding
c3003caRueshyna
gogol/src/Network/Google/Internal/Auth.hs+6−6
compare with develop
unifiedsplit
@@ -127,14 +127,14 @@ data AuthorizedUser = AuthorizedUser
127 { _userId :: !ClientId
127 { _userId :: !ClientId
128 , _userRefresh :: !RefreshToken
128 , _userRefresh :: !RefreshToken
129 , _userSecret :: !Secret
129 , _userSecret :: !Secret
130− } deriving (Eq, Show, Generic)
130+ } deriving (Eq, Show)
131
131
132instance ToJSON AuthorizedUser where
132instance ToJSON AuthorizedUser where
133− toEncoding (AuthorizedUser i r s) =
133+ toJSON (AuthorizedUser i r s) =
134− pairs ( "client_id" .= i
134+ object [ "client_id" .= i
135− <> "refresh_token" .= r
135+ , "refresh_token" .= r
136− <> "client_secret" .= s
136+ , "client_secret" .= s
137− )
137+ ]
138
138
139instance FromJSON AuthorizedUser where
139instance FromJSON AuthorizedUser where
140 parseJSON = withObject "authorized_user" $ \o -> AuthorizedUser
140 parseJSON = withObject "authorized_user" $ \o -> AuthorizedUser