Запрос на сборку с 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

и я думаю, что вы все делаете правильно.