sig
  type t
  external getBody : SFHttp.Response.t -> string
    = "caml_sfHttpResponse_getBody"
  external getStatus : SFHttp.Response.t -> SFHttp.status
    = "caml_sfHttpResponse_getStatus"
  external destroy : SFHttp.Response.t -> unit
    = "caml_sfHttpResponse_destroy"
  external getField : SFHttp.Response.t -> field:string -> string
    = "caml_sfHttpResponse_getField"
  external getMajorHttpVersion : SFHttp.Response.t -> int
    = "caml_sfHttpResponse_getMajorHttpVersion"
  external getMinorHttpVersion : SFHttp.Response.t -> int
    = "caml_sfHttpResponse_getMinorHttpVersion"
end