From 7d8650a88340eb3ee78c6939bf73d5e4fb12974c Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <rak@rak.ac>
Date: Sat, 6 Jun 2020 11:02:59 -0400
Subject: status -> response

---
 gemini/geminiTransaction.mli | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

(limited to 'gemini/geminiTransaction.mli')

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