Anri/pusk
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages 1 Wiki Activity Actions

better err msg

Browse source
This commit is contained in:
Mylloon 2023-05-13 17:21:05 +02:00
parent b1989bd79b
commit f76d4b46a6
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/net.ml
View file

@ -40,7 +40,7 @@ let get_session () =
| [] -> failwith "Session ID not found" | [] -> failwith "Session ID not found"
in in
find_session_id (Yojson.Safe.Util.to_assoc value) find_session_id (Yojson.Safe.Util.to_assoc value)
| _ -> failwith "Invalid JSON" | _ -> failwith "get_session | Invalid JSON"
;; ;;
let close_session id = execute_delete_request (driver id) = "{\"value\":null}" let close_session id = execute_delete_request (driver id) = "{\"value\":null}"
@ -61,8 +61,8 @@ let rec wait_for_load session_id =
then ( then (
Unix.sleep 1; Unix.sleep 1;
wait_for_load session_id) wait_for_load session_id)
| _ -> failwith "Error when waiting for load") | _ -> failwith "Error when waiting for page to load")
| _ -> failwith "Invalid JSON" | _ -> failwith "wait_for_load | Invalid JSON"
;; ;;
let navigate ?(wait = true) url session_id = let navigate ?(wait = true) url session_id =