Add error status logging for now

AoECenter · Mar 19, 2024 · c154868 · c154868
1 parent 337f5bd
commit c154868
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/client.ml b/lib/client.ml
@@ -15,7 +15,10 @@ let get_json url =
     let* body = Cohttp_lwt.Body.to_string body in
     let json = Yojson.Basic.from_string body in
     Lwt.return @@ Some json
-  else Lwt.return None
+  else
+    (* Find out what to do with this later. What's the return type? Do we have Result<a,b>? *)
+    let* _ = Lwt_io.printl (Printf.sprintf "HTTP Error: %s" (Cohttp.Code.string_of_status status)) in
+    Lwt.return None
 ;;
 
 let get ?requester endpoint client =