From 98c8032f47316d5f6808cd9901c4d42600ed676f Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <rak@rak.ac>
Date: Mon, 1 Jun 2020 10:44:17 -0400
Subject: Revise with better understanding of lwt library

---
 gemini/request.mli | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'gemini/request.mli')

diff --git a/gemini/request.mli b/gemini/request.mli
index b96a5ae..45049f1 100644
--- a/gemini/request.mli
+++ b/gemini/request.mli
@@ -1,5 +1,7 @@
 module type GEMINI_TRANSACTION =
 sig
+  type request
+
   module M : MimeType.MIME_TYPE
 
   type status =
@@ -29,9 +31,11 @@ sig
 
   type response = status * mime_type * string
 
+  val string_to_request : string -> request
+
   val int_to_status : int -> status option
 
-  val request : string -> response option
+  val transaction : request -> response option Lwt.t
 end
 
 module GeminiTransaction (M : MimeType.MIME_TYPE) : GEMINI_TRANSACTION with module M = M
-- 
cgit v1.2.3