diff options
Diffstat (limited to 'gemini/geminiTransaction.mli')
-rw-r--r-- | gemini/geminiTransaction.mli | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/gemini/geminiTransaction.mli b/gemini/geminiTransaction.mli index ecd7349..cc209d0 100644 --- a/gemini/geminiTransaction.mli +++ b/gemini/geminiTransaction.mli @@ -8,10 +8,10 @@ sig type mime_type = M.t - type status = + type response = | INPUT - | SUCCESS of mime_type - | SUCCESS_EOCSS + | SUCCESS of mime_type * string + | SUCCESS_EOCSS of mime_type * string | REDIR_TEMP of string | REDIR_PERM of string | TEMP_FAIL @@ -31,8 +31,6 @@ sig | FUTURE_CERT_REJECTED | EXPIRED_CERT_REJECTED - type response = status * string - val make_request : ?authenticator:T.authenticator -> ?max_redirects:int -> string -> (request, string) Base.Result.t @@ -40,13 +38,13 @@ sig -> ?max_redirects:int -> ?url:string -> request -> (request, string) Base.Result.t - val status_of_string : string -> (status, string) Base.Result.t + val response_of_string : string -> (response, string) Base.Result.t - val int_of_status : status -> int + val int_of_response : response -> int - val name_of_status : status -> string + val name_of_response : response -> string - val string_of_status : status -> string + val header_of_response : response -> string val transaction : request -> (response, string) Base.Result.t Lwt.t |