postRequest :: Client.Manager -> Request -> String -> IO (Client.Response ByteString)
postRequest man req url = do
                        initialRequest <- Client.parseUrl url
                        requestBody <- requestBody req
                        let request = initialRequest { 
                            Client.method=methodPost, 
                            Client.redirectCount=0,
                            Client.requestHeaders=(removeHeaders (requestHeaders req) [hContentLength]),  
                            Client.requestBody = Client.RequestBodyBS requestBody 
                        }
                        Client.httpLbs request man
postRequest :: Client.Manager -> Request -> String -> IO (Client.Response ByteString)
postRequest man req url = do
                        initialRequest <- Client.parseUrl url
                        requestBody <- requestBody req
                        let request = initialRequest { 
                            Client.method=methodPost, 
                            Client.redirectCount=0,
                            Client.requestHeaders=(removeHeaders (requestHeaders req) [hContentLength]),  
                            Client.requestBody = Client.RequestBodyBS requestBody 
                        }
                        Client.httpLbs request man
postRequest man req url = do
                        initialRequest <- Client.parseUrl url
                        requestBody <- requestBody req
                        let request = initialRequest { 
                            Client.method=methodPost, 
                            Client.redirectCount=0,
                            Client.requestHeaders=(removeHeaders (requestHeaders req) [hContentLength]),  
                            Client.requestBody = Client.RequestBodyBS requestBody 
                        }
                        Client.httpLbs request man