sig val run : mode:[ `Add of Ocsigen_header.Name.t * string * bool option | `Code of Cohttp.Code.status | `Rewrite of Ocsigen_header.Name.t * string * string ] -> unit -> Ocsigen_server.instruction end