sig
  type t
  external create : unit -> SFHttp.Request.t = "caml_sfHttpRequest_create"
  external destroy : SFHttp.Request.t -> unit = "caml_sfHttpRequest_destroy"
  external setField :
    SFHttp.Request.t -> field:string -> value:string -> unit
    = "caml_sfHttpRequest_setField"
  external setMethod : SFHttp.Request.t -> SFHttp.http_method -> unit
    = "caml_sfHttpRequest_setMethod"
  external setUri : SFHttp.Request.t -> uri:string -> unit
    = "caml_sfHttpRequest_setUri"
  external setHttpVersion :
    SFHttp.Request.t -> major:int -> minor:int -> unit
    = "caml_sfHttpRequest_setHttpVersion"
  external setBody : SFHttp.Request.t -> body:string -> unit
    = "caml_sfHttpRequest_setBody"
end