summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--bin/leda.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/leda.ml b/bin/leda.ml
index 1438796..3aa7c58 100644
--- a/bin/leda.ml
+++ b/bin/leda.ml
@@ -10,6 +10,6 @@ let () =
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"
+ | Ok (_, _, s) -> Lwt_io.printl s
+ | Error m -> Lwt_io.printl m
end