Password OAuth2 Token

gistfile1.hs

-- | Request (via POST method) "Access Token" using Resource Owner Password Credentials Grant.
--
--
fetchAccessTokenPass :: Manager                          -- ^ HTTP connection manager
                       -> OAuth2                         -- ^ OAuth Data
                       -> BS.ByteString                  -- ^ username
                       -> BS.ByteString                  -- ^ password
                       -> IO (OAuth2Result AccessToken)  -- ^ Access Token
fetchAccessTokenPass manager oa username password = doJSONPostRequest manager oa uri body
                           where (uri, body) = accessTokenUrlPass oa username password

accessTokenUrlPass :: OAuth2
                      -> BS.ByteString       -- ^ username
                      -> BS.ByteString       -- ^ password
                      -> (URI, PostBody)     -- ^ access token request URL plus the request body.
accessTokenUrlPass oa username password = (uri, body)
  where uri  = oauthAccessTokenEndpoint oa
        body = transform' [ ("client_id", Just $ oauthClientId oa)
                          , ("client_secret", Just $ oauthClientSecret oa)
                          , ("username", Just username)
                          , ("password", Just password)
                          , ("redirect_uri", oauthCallback oa)
                          , ("grant_type", Just "password")]