From 6fcb6e0f2fd4b93d094c68e844e7c1d0bd58a894 Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <rak@rak.ac>
Date: Tue, 2 Jun 2020 12:10:14 -0400
Subject: string_to_request -> make_request

---
 gemini/geminiTransaction.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'gemini/geminiTransaction.ml')

diff --git a/gemini/geminiTransaction.ml b/gemini/geminiTransaction.ml
index 282d6e7..e79e40d 100644
--- a/gemini/geminiTransaction.ml
+++ b/gemini/geminiTransaction.ml
@@ -31,7 +31,7 @@ sig
 
   type response = status * mime_type * string
 
-  val string_to_request : string -> request
+  val make_request : url:string -> request
 
   val int_to_status : int -> status option
 
@@ -74,7 +74,7 @@ struct
 
   type response = status * mime_type * string
 
-  let string_to_request r =
+  let make_request ~url:r =
     let url = Uri.of_string r in
     let () = match Uri.scheme url with
       | Some "gemini" -> ()
-- 
cgit v1.2.3