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

我认为您做对了。