3

我不知道为什么我的代码会中断。起初我以为是因为parseURL给[]. requestHeaders好的，所以也许我只需要告诉它 resquestHeaders 应该是什么。好吧，我检查了requestHeaders从我的旧的工作代码生成的。它也返回一个[]. 所以现在我没有想法了。下面是旧的工作代码，遵循我在 GHCi 中尝试使用的新的基于管道的库的东西。

captureRawJson :: IO Response
captureRawJson = do
    nManager <- newManager
    jRequest <- parseUrl url :: (IO (Request IO))
    jResponse <- httpLbsRedirect jRequest nManager
    closeManager nManager
    return jResponse

以上工作正常，这是我在迁移时一直在尝试做的事情，以及我收到的错误。

Prelude Network.HTTP.Conduit> nManager <- newManager def
Prelude Network.HTTP.Conduit> jRequest <- parseUrl "https://10.69.69.1/cgi-bin/qaLinkEditor.cgi?json=1" :: (IO (Request IO))
Prelude Network.HTTP.Conduit> let response = httpLbs jRequest nManager
Prelude Network.HTTP.Conduit Control.Monad.Trans.Resource> runResourceT response
*** Exception: error unexpected packet: Handshake [ServerHelloDone]

如您所见，它几乎是完全相同的代码。因此，我想就发生的变化以及我应该更仔细地研究的内容提供反馈。另外，如何检查在客户端代码和服务器之间来回发送的 http 标头？

4

1 回答 1

2

我相信这可以通过 tls 包中的一些更改来解决。我刚刚发布了http-conduit 1.2.5，请看看它是否解决了问题。

如果您仍然收到错误消息，则可能是 SSL 证书与您要连接的主机名不匹配。

于 2012-02-08T06:13:20.117 回答