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))