From c841a763fe2be67d3ff9dd375ba14613ba0849a0 Mon Sep 17 00:00:00 2001 From: Alex Babkin Date: Wed, 1 Feb 2017 18:56:43 -0500 Subject: [PATCH] fix --- gogol/src/Network/Google/Auth/ServiceAccount.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)