http.conduit.post.hs

http.conduit.post.hs

{-# LANGUAGE OverloadedStrings #-}

import           Network.HTTP.Conduit
import qualified Data.ByteString.Lazy.Char8 as L

main :: IO ()
main = do
  plainRequest <- parseUrl "http://httpbin.org/post"
  let enrichedRequest = urlEncodedBody [("foo","bar"),("baz","qux")] plainRequest
  response <- withManager $ httpLbs enrichedRequest
  putStrLn $ show enrichedRequest
  print $ responseStatus response
  mapM_ print $ responseHeaders response
  L.putStrLn $ responseBody response
  return ()