diff options
| author | Ryan Kavanagh <rak@rak.ac> | 2020-06-02 12:10:14 -0400 |
|---|---|---|
| committer | Ryan Kavanagh <rak@rak.ac> | 2020-06-07 11:39:58 -0400 |
| commit | 6fcb6e0f2fd4b93d094c68e844e7c1d0bd58a894 (patch) | |
| tree | 985a8055db77097ec343304d63b4a5da2bbe0f84 /gemini | |
| parent | Rename request to geminiTransaction (diff) | |
string_to_request -> make_request
Diffstat (limited to 'gemini')
| -rw-r--r-- | gemini/geminiTransaction.ml | 4 | ||||
| -rw-r--r-- | gemini/geminiTransaction.mli | 2 |
2 files changed, 3 insertions, 3 deletions
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" -> () diff --git a/gemini/geminiTransaction.mli b/gemini/geminiTransaction.mli index 45049f1..f365f71 100644 --- a/gemini/geminiTransaction.mli +++ b/gemini/geminiTransaction.mli @@ -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 |