haskell - YesodAuth Google OAuth2 超时

Question

我正在尝试为我的 Yesod 网站设置身份验证和授权 according to the book .

但是，一旦我设置了 Google OAuth2，我就会超时:

HttpExceptionRequest Request {
  host                 = "accounts.google.com"
  port                 = 443
  secure               = True
  requestHeaders       = [("Content-Type","application/x-www-form-urlencoded")]
  path                 = "/o/oauth2/token"
  queryString          = ""
  method               = "POST"
  proxy                = Nothing
  rawBody              = False
  redirectCount        = 10
  responseTimeout      = ResponseTimeoutDefault
  requestVersion       = HTTP/1.1
  proxySecureMode      = ProxySecureWithConnect
}
 ConnectionTimeout

我尝试使用yesod-auth-oauth2 instead ，但我仍然遇到超时错误:

HttpExceptionRequest Request {
  host                 = "www.googleapis.com"
  port                 = 443
  secure               = True
  requestHeaders       = [("Content-Type","application/x-www-form-urlencoded"),("Authorization","<REDACTED>"),("User-Agent","hoauth2"),("Accept","application/json")]
  path                 = "/oauth2/v3/token"
  queryString          = ""
  method               = "POST"
  proxy                = Nothing
  rawBody              = False
  redirectCount        = 10
  responseTimeout      = ResponseTimeoutDefault
  requestVersion       = HTTP/1.1
  proxySecureMode      = ProxySecureWithConnect
}
 ConnectionTimeout

我为网络应用程序启用了 Google+ API 和联系人 API。我现在正在本地运行我的网站，并且我的授权重定向 URI 为

• http://localhost:3000/auth/page/google/callback
• http://localhost:3000/auth/page/googleemail2/complete

Answer 1

事实证明，就我的情况而言，这是由于 www.googleapis.com 的 IPv6 地址被 Cisco AnyConnect 套接字过滤器过滤掉了。

例如，在connection中包中，我在 resolve' 函数中使用 Debug.Trace.trace 添加了 addrs 来找出服务器最初尝试连接到IPv6 地址，然后是 IPv4 地址。连接到 IPv4 地址(例如使用 ping 或 telnet)可以工作，但 IPv6 地址却不能，所以最终这是防火墙问题。