blob: 3aa7c58ba856603787246b1a19a7f79d27d6f2c4 (
plain) (
tree)
|
|
module M = Gemini.MimeTextGemini.MimeTextGemini
let test_parse s = M.gemini_to_canon_str (M.str_to_gemini s)
module T = Gemini.MimeType.MimeType
module R = Gemini.GeminiTransaction.GeminiTransaction(T)
let () =
Lwt_main.run begin
let req = R.make_request ~url:"gemini://gemini.circumlunar.space/\r\n" in
let%lwt response = R.transaction req in
match response with
| Ok (_, _, s) -> Lwt_io.printl s
| Error m -> Lwt_io.printl m
end
|