@@ -140,7 +140,7 @@ exchangeCode c n = refreshRequest $
141-- | Perform a refresh to obtain a valid 'OAuthToken' with a new expiry time.
141-- | Perform a refresh to obtain a valid 'OAuthToken' with a new expiry time.
143−-- /See:/ <https://developers.google.com/accounts/docs/OAuth2InstalledApp#refresh Refreshing tokens>.
143+-- /See:/ <https://developers.google.com/accounts/docs/OAuth2InstalledApp#offline Refreshing tokens>.
144refreshToken :: (MonadIO m, MonadCatch m)
144refreshToken :: (MonadIO m, MonadCatch m)
145 => OAuthClient
145 => OAuthClient
146 -> (OAuthToken s)
146 -> (OAuthToken s)
@@ -148,7 +148,7 @@ refreshToken :: (MonadIO m, MonadCatch m)
148 -> Manager
148 -> Manager
149 -> m (OAuthToken s)
149 -> m (OAuthToken s)
150refreshToken c t = refreshRequest $
150refreshToken c t = refreshRequest $
151− accountsRequest
151+ tokenRequest
152 { Client.requestBody = textBody $
152 { Client.requestBody = textBody $
153 "grant_type=refresh_token"
153 "grant_type=refresh_token"
154 <> "&client_id=" <> toQueryParam (_clientId c)
154 <> "&client_id=" <> toQueryParam (_clientId c)