From b6e597afe251c5a7c16b09794c77de3d6e9499f4 Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <rak@rak.ac>
Date: Tue, 2 Jun 2020 15:24:25 -0400
Subject: Add an UNDEFINED status

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

(limited to 'gemini/geminiTransaction.mli')

diff --git a/gemini/geminiTransaction.mli b/gemini/geminiTransaction.mli
index b97967b..b31d9e0 100644
--- a/gemini/geminiTransaction.mli
+++ b/gemini/geminiTransaction.mli
@@ -26,6 +26,7 @@ sig
     | CERT_NOT_ACCEPTED
     | FUTURE_CERT_REJECTED
     | EXPIRED_CERT_REJECTED
+    | UNDEFINED of int
 
   type mime_type = M.t
 
@@ -33,7 +34,7 @@ sig
 
   val make_request : url:string -> request
 
-  val int_to_status : int -> status option
+  val int_to_status : int -> status
 
   val transaction : request -> (response, string) result Lwt.t
 end
-- 
cgit v1.2.3