diff options
author | Ryan Kavanagh <rak@rak.ac> | 2020-06-01 10:44:17 -0400 |
---|---|---|
committer | Ryan Kavanagh <rak@rak.ac> | 2020-06-01 10:44:17 -0400 |
commit | 98c8032f47316d5f6808cd9901c4d42600ed676f (patch) | |
tree | 66234f4bf4d284be92a4e03dee9193817771cf5c /gemini/request.mli | |
parent | We can now make requests (diff) |
Revise with better understanding of lwt library
Diffstat (limited to 'gemini/request.mli')
-rw-r--r-- | gemini/request.mli | 6 |
1 files changed, 5 insertions, 1 deletions
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 |