From 3f610d86c6f091f6ed3a4e4426d3e6b0d6956a01 Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <rak@rak.ac>
Date: Tue, 2 Jun 2020 14:28:49 -0400
Subject: We can now parse gemini transactions

---
 bin/leda.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'bin')

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
-- 
cgit v1.2.3