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

我認為您做對了。