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}