haskell - 突然yesod tls异常，DecodeError

Question

当我尝试在 Yesod 应用程序中使用 gmail 身份验证 (Yesod.Auth.GoogleEmail2) 时，我突然开始遇到以下错误:

FailedConnectionException2 "www.googleapis.com" 443 True sendBuf: resource vanished (Broken pipe)

和

TlsExceptionHostPort (HandshakeFailed (Error_Packet_unexpected "Alert [(AlertLevel_Fatal,DecodeError)]" " expected: change cipher")) "www.googleapis.com" 443

第二个错误更常见。仍然可以登录---报错后重新加载

StatusCodeException (Status {statusCode = 400, statusMessage = "Bad Request"}) [("Content-Type","application/json; charset=utf-8"),("Cache-Control","no-cache, no-store, max-age=0, must-revalidate"),("Pragma","no-cache"),("Expires","Mon, 01 Jan 1990 00:00:00 GMT"),("Date","Wed, 24 Aug 2016 01:13:02 GMT"),("Content-Encoding","gzip"),("X-Content-Type-Options","nosniff"),("X-Frame-Options","SAMEORIGIN"),("X-XSS-Protection","1; mode=block"),("Server","GSE"),("Alternate-Protocol","443:quic"),("Alt-Svc","quic=\":443\"; ma=2592000; v=\"35,34,33,32,31,30\""),("Transfer-Encoding","chunked"),("X-Response-Body-Start","{\n  \"error\" : \"invalid_grant\",\n  \"error_description\" : \"Code was already redeemed.\"\n}"),("X-Request-URL","POST https://accounts.google.com:443/o/oauth2/token")] (CJ {expose = []})

收到该消息后，通过身份验证路由返回，让您登录。<​​/p>

我正在 Yesod 脚手架站点上进行构建，据我所知，自此问题开始出现之前以来，Foundation.hs 或 Application.hs 中没有任何变化。该应用程序正在使用 keter 进行部署，并在堆栈 lts-6.12 中进行编译

双重问题:原因是什么，解决方法是什么？

Answer 1

我已经升级到 lts-6.28 才能让它工作。