blob: 8b987620c0cde730d75e0b4f2af10abe9ce9746d (
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.Request.GeminiTransaction(T)
let () =
Lwt_main.run begin
let req = R.string_to_request "gemini://gemini.circumlunar.space/\r\n" in
let%lwt response = R.transaction req in
match response with
| Some (_, _, s) -> Lwt_io.printl s
| _ -> Lwt_io.printl "ooops"
end
|