diff options
| author | Ryan Kavanagh <rak@rak.ac> | 2020-06-02 14:28:49 -0400 |
|---|---|---|
| committer | Ryan Kavanagh <rak@rak.ac> | 2020-06-07 11:39:58 -0400 |
| commit | 3f610d86c6f091f6ed3a4e4426d3e6b0d6956a01 (patch) | |
| tree | 4757fedbaa507daeed14f95550859d534d02f1e9 /bin | |
| parent | Split common parsing functions into separate function (diff) | |
We can now parse gemini transactions
Diffstat (limited to 'bin')
| -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 |