diff --git a/lib/json.ml b/lib/json.ml index 8b6e89e..cfbfca8 100644 --- a/lib/json.ml +++ b/lib/json.ml @@ -14,7 +14,7 @@ let connection_payload headless = } } } - |} + |} (if headless then "\"-headless\"" else "") ;; @@ -22,14 +22,14 @@ let navigate_payload url = fmt {| { "url": "%s" } - |} url + |} url let execute_payload src = fmt {| { "script": "%s", "args": [] } - |} src + |} src let find_payload strategy value = fmt {| @@ -37,7 +37,7 @@ let find_payload strategy value = "using": "%s", "value": "%s" } - |} strategy value + |} strategy value ;; let send_keys_payload text = @@ -47,7 +47,7 @@ let send_keys_payload text = "text": "%s", "value": %s } - |} + |} text (Yojson.Safe.to_string (`List (List.map (fun str -> `String str) (keys_to_typing text))))