尝试使用oAuth2在haskell中执行https get请求

import Network.HTTP.Client
import Network.HTTP.Client.TLS
import Network.HTTP.Types.Status (statusCode)
import Network.OAuth.OAuth2

clientId :: String
clientId = "your_client_id"

clientSecret :: String
clientSecret = "your_client_secret"

authorizationEndpoint :: String
authorizationEndpoint = "https://oauth2.tencentcloudapi.com/"

tokenEndpoint :: String
tokenEndpoint = "https://oauth2.tencentcloudapi.com/token"

oauth2Config :: OAuth2
oauth2Config = OAuth2 {
  oauthClientId = clientId,
  oauthClientSecret = Just clientSecret,
  oauthOAuthorizeEndpoint = authorizationEndpoint,
  oauthAccessTokenEndpoint = tokenEndpoint,
  oauthCallback = Nothing
}

authorizationUrl :: String
authorizationUrl = authorizationUrl oauth2Config

accessToken :: IO (OAuth2Result AccessToken)
accessToken = do
  putStrLn "Enter the authorization code:"
  code <- getLine
  manager <- newManager tlsManagerSettings
  fetchAccessToken manager oauth2Config (ExchangeToken code)

executeGetRequest :: AccessToken -> IO ()
executeGetRequest token = do
  manager <- newManager tlsManagerSettings
  request <- parseRequest "https://api.example.com/endpoint"
  let authenticatedRequest = applyAccessToken token request
  response <- httpLbs authenticatedRequest manager
  putStrLn $ "Response status code: " ++ show (statusCode $ responseStatus response)
  putStrLn $ "Response body: " ++ show (responseBody response)