better error message

2024-03-09 14:49:13 +01:00 · 2024-03-09 14:49:13 +01:00 · 5dc36fd9d3
commit 5dc36fd9d3
parent c95978eb8a
1 changed files with 2 additions and 0 deletions
--- a/lib/net.ml
+++ b/lib/net.ml
@ -38,6 +38,8 @@ let get_session ?(headless = true) () =
    let value = List.assoc "value" fields in
    let rec find_session_id = function
      | ("sessionId", `String session_id) :: _ -> session_id
+      | ("error", `String err) :: ("message", `String msg) :: _ ->
+        raise (Any (Printf.sprintf "%s - %s" err msg))
      | _ :: rest -> find_session_id rest
      | [] -> raise (Any "Session ID not found")
    in