let make_http_request connection_id request = let meth = Cohttp.Request.meth request |> Cohttp.Code.string_of_method in let uri = Cohttp.Request.uri request |> Uri.to_string in {connection_id; meth; uri}