getRequest :: Client.Manager -> Request -> String -> IO (Client.Response ByteString)
getRequest man req url = do
                        initialRequest <- Client.parseUrl url
                        requestBody <- requestBody req
                        let requestWithQS = Client.setQueryString (queryString req) initialRequest
                        let request = requestWithQS { 
                            Client.method=methodGet, 
                            Client.redirectCount=0,
                            Client.requestHeaders=(if url == paranoiaUrl then [] else (removeHeaders (requestHeaders req) [hContentLength])),  
                            Client.requestBody=Client.RequestBodyBS requestBody
                        } 
                        Client.httpLbs request man
getRequest :: Client.Manager -> Request -> String -> IO (Client.Response ByteString)
getRequest man req url = do
                        initialRequest <- Client.parseUrl url
                        requestBody <- requestBody req
                        let requestWithQS = Client.setQueryString (queryString req) initialRequest
                        let request = requestWithQS { 
                            Client.method=methodGet, 
                            Client.redirectCount=0,
                            Client.requestHeaders=(if url == paranoiaUrl then [] else (removeHeaders (requestHeaders req) [hContentLength])),  
                            Client.requestBody=Client.RequestBodyBS requestBody
                        } 
                        Client.httpLbs request man
getRequest man req url = do
                        initialRequest <- Client.parseUrl url
                        requestBody <- requestBody req
                        let requestWithQS = Client.setQueryString (queryString req) initialRequest
                        let request = requestWithQS { 
                            Client.method=methodGet, 
                            Client.redirectCount=0,
                            Client.requestHeaders=(if url == paranoiaUrl then [] else (removeHeaders (requestHeaders req) [hContentLength])),  
                            Client.requestBody=Client.RequestBodyBS requestBody
                        } 
                        Client.httpLbs request man