haskell - 使用 IP 地址构建请求

Question

我想知道如何使用服务器的 IP 地址（不是 URL）构建请求。

实际上，我从给定的 URL 开始，然后在镜头的帮助下重建请求：

   connect = do
        request' <- parseRequest "http://localhost"
        let request = setRequestMethod "POST"
                    $ setRequestHost (S8.pack ("xx.xxx.xxx.xxx"))
                    $ ... 

它工作正常，但它是不优雅、笨拙的代码。

Answer 1

这或多或少是您Request从头开始创建时应该做的事情，除非有一个预定义的defaultRequest等效于http://localhost. 所以，使用：

request = setRequestMethod "POST"
        $ setRequestHost (S8.pack "xx.xxx.xxx.xxx")
        $ ... 
        $ defaultRequest

我认为你做对了。