使用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

我认为您做对了。