From 4541e48f22aac7d3073d14bedc9aad69a092a375 Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <rak@rak.ac>
Date: Fri, 12 Jun 2020 22:36:10 -0400
Subject: Better error handling

---
 gemini/geminiTransaction.mli | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'gemini/geminiTransaction.mli')

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)
-- 
cgit v1.2.3