См.также
Программа на Haskell
которая обращается к сервису http://httpbin.org
методом GET.
{-# LANGUAGE OverloadedStrings #-}
import qualified Data.ByteString.Lazy.Char8 as L8
import Network.HTTP.Simple
main :: IO ()
main = do
response <- httpLBS "http://httpbin.org/get"
putStrLn $ "The status code was: " ++
show (getResponseStatusCode response)
print $ getResponseHeader "Content-Type" response
L8.putStrLn $ getResponseBody response
Выполняем при помощи stack.
$ stack runghc --package http-conduit -- http.hs
The status code was: 200
["application/json"]
{
"args": {},
"headers": {
"Accept-Encoding": "gzip",
"Connection": "close",
"Host": "httpbin.org"
},
"origin": "82.168.129.111",
"url": "http://httpbin.org/get"
}