let set_site_cookie (d: domain) (p: path) ((k, v): string * string) (b: b)
: b =
let cid = {
cookie_id_domain = d;
cookie_id_path = p;
cookie_id_key = k;
} in
{ b with browser_cookies = upd_assoc cid v b.browser_cookies }