git.iko.soy/gogol
on develop help sign in
Merge pull request #53 from dtulig/develop

Create a token request to exhange authorization code with token.

commit6d20ba2969dd646772506f0e7f90231d6315cd6b authorBrendan Hay <brendanhay@users.noreply.github.com> dateThu 19 Jan 2017, 11:11 (10 years ago) parent2e5b49208f9196
2 files changed+13−1
compare with develop
unifiedsplit
gogol/src/Network/Google/Auth/InstalledApplication.hs+1−1 gogol/src/Network/Google/Internal/Auth.hs+12
gogol/src/Network/Google/Auth/InstalledApplication.hs+1−1
@@ -109,7 +109,7 @@ exchangeCode :: (MonadIO m, MonadCatch m)
109109 -> Manager
110110 -> m (OAuthToken s)
111111exchangeCode c n = refreshRequest $
112− accountsRequest
112+ tokenRequest
113113 { Client.requestBody = textBody $
114114 "grant_type=authorization_code"
115115 <> "&client_id=" <> toQueryParam (_clientId c)
gogol/src/Network/Google/Internal/Auth.hs+12
@@ -260,6 +260,18 @@ accountsRequest = Client.defaultRequest
260260 ]
261261 }
262262
263+tokenRequest :: Client.Request
264+tokenRequest = Client.defaultRequest
265+ { Client.host = "www.googleapis.com"
266+ , Client.port = 443
267+ , Client.secure = True
268+ , Client.method = "POST"
269+ , Client.path = "/oauth2/v4/token"
270+ , Client.requestHeaders =
271+ [ (hContentType, "application/x-www-form-urlencoded")
272+ ]
273+ }
274+
263275refreshRequest :: (MonadIO m, MonadCatch m)
264276 => Client.Request
265277 -> Logger