
28 May
2014
28 May
'14
8:48 a.m.
Hi, I'm having difficulties with sending body parameters/values in a POST request. It seems that the server does not receive in body. ideas/comments very welcome ;-) cheers, m. {-# LANGUAGE OverloadedStrings #-} import Network.HTTP.Conduit import Data.Word(Word8) import Data.ByteString.Lazy(pack) import qualified Data.ByteString.Char8 as B x :: B.ByteString x = "?value=10" post = do r <- parseUrl "http://postcatcher.in/catchers/5385d4e0b6887c0200000071" putStrLn $show r let request = r { secure = True , method = "POST" , requestBody = RequestBodyBS s , requestHeaders = (requestHeaders r) ++ [("Content-Type", "application/json")]} putStrLn $ show request response <- withManager $ httpLbs request print $ responseBody response