diff options
| author | Ryan Kavanagh <rak@rak.ac> | 2020-06-06 11:02:59 -0400 |
|---|---|---|
| committer | Ryan Kavanagh <rak@rak.ac> | 2020-06-07 11:39:58 -0400 |
| commit | 7d8650a88340eb3ee78c6939bf73d5e4fb12974c (patch) | |
| tree | 7fa7d4d2d2126ea200b2037dc9bfb6fe0f63570e /gemini/geminiTransaction.mli | |
| parent | Ignore emacs temp files (diff) | |
status -> response
Diffstat (limited to '')
| -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 |