@@ -127,14 +127,14 @@ data AuthorizedUser = AuthorizedUser
127127 { _userId :: !ClientId
128128 , _userRefresh :: !RefreshToken
129129 , _userSecret :: !Secret
130− } deriving (Eq, Show, Generic)
130+ } deriving (Eq, Show)
131131
132132instance ToJSON AuthorizedUser where
133− toEncoding (AuthorizedUser i r s) =
134− pairs ( "client_id" .= i
135− <> "refresh_token" .= r
136− <> "client_secret" .= s
137− )
133+ toJSON (AuthorizedUser i r s) =
134+ object [ "client_id" .= i
135+ , "refresh_token" .= r
136+ , "client_secret" .= s
137+ ]
138138
139139instance FromJSON AuthorizedUser where
140140 parseJSON = withObject "authorized_user" $ \o -> AuthorizedUser