diff --git a/gogol/src/Network/Google/Auth/ServiceAccount.hs b/gogol/src/Network/Google/Auth/ServiceAccount.hs index 8cee8fdba0..4eeb890056 100644 --- a/gogol/src/Network/Google/Auth/ServiceAccount.hs +++ b/gogol/src/Network/Google/Auth/ServiceAccount.hs @@ -68,7 +68,7 @@ authorizedUserToken :: (MonadIO m, MonadCatch m) -> Manager -> m (OAuthToken s) authorizedUserToken u r = refreshRequest $ - accountsRequest + tokenRequest { Client.requestBody = textBody $ "grant_type=refresh_token" <> "&client_id=" <> toQueryParam (_userId u)