let http_send (d: domain) (uri: req_uri) (body: string) (dst: dst) (b: b)
  : b * output_event =
    let connections' = (d, uri, dst) :: b.browser_connections in
    let b' = {
      b with
      browser_connections = connections';
    } in
    let req = {
      req_uri = uri;
      req_cookies = get_site_cookies d uri.req_uri_path b;
      req_body = body;
    } in
    (b', Network_send_event(d, req))