path: root/bin/leda.ml

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
    | Some (_, _, s) -> Lwt_io.printl s
    | _ -> Lwt_io.printl "ooops"
    end