bin/leda.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

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