@@ -68,7 +68,7 @@ authorizedUserToken :: (MonadIO m, MonadCatch m)
68 -> Manager
68 -> Manager
69 -> m (OAuthToken s)
69 -> m (OAuthToken s)
70authorizedUserToken u r = refreshRequest $
70authorizedUserToken u r = refreshRequest $
71− accountsRequest
71+ tokenRequest
72 { Client.requestBody = textBody $
72 { Client.requestBody = textBody $
73 "grant_type=refresh_token"
73 "grant_type=refresh_token"
74 <> "&client_id=" <> toQueryParam (_userId u)
74 <> "&client_id=" <> toQueryParam (_userId u)