diff options
Diffstat (limited to '')
| -rw-r--r-- | bin/leda.ml | 4 |
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 |