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