blob: 40074ff646f931b0f77adcd08f56bcaee383521f (
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 main =
match R.request "gemini://gemini.circumlunar.space/\r\n" with
| Some (_, _, s) -> print_endline s
| _ -> print_endline "oops"
|