diff options
| author | Ryan Kavanagh <rak@rak.ac> | 2020-06-12 22:36:10 -0400 |
|---|---|---|
| committer | Ryan Kavanagh <rak@rak.ac> | 2020-06-12 22:36:10 -0400 |
| commit | 4541e48f22aac7d3073d14bedc9aad69a092a375 (patch) | |
| tree | 57841ca3cc709d324a4e2cf7c6cc5653c0249986 /gemini/geminiTransaction.mli | |
| parent | Use tlsutils to connect (diff) | |
Better error handling
Diffstat (limited to '')
| -rw-r--r-- | gemini/geminiTransaction.mli | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gemini/geminiTransaction.mli b/gemini/geminiTransaction.mli index 4a89ab1..d103afe 100644 --- a/gemini/geminiTransaction.mli +++ b/gemini/geminiTransaction.mli @@ -32,6 +32,12 @@ sig | FUTURE_CERT_REJECTED | EXPIRED_CERT_REJECTED + type session_error = + | TOO_MANY_REDIRECTS + | X_DOMAIN_REDIR of Uri.t * Uri.t + | UNKNOWN_RESPONSE of string + | MISC of string + val make_request : ?authenticator:T.authenticator -> ?max_redirects:int -> string -> (request, string) Base.Result.t @@ -49,7 +55,7 @@ sig val transaction : request -> (response, string) Base.Result.t Lwt.t - val session : request -> (response, string) Base.Result.t Lwt.t + val session : request -> (response, session_error) Base.Result.t Lwt.t end module GeminiTransaction (M : MimeType.MIME_TYPE) (T : TlsUtils.TLS_UTILS) |