From cc94b15e01a1e0ed4e61f70d06e147ffcb27ffc1 Mon Sep 17 00:00:00 2001 From: Mylloon Date: Sat, 9 Mar 2024 16:08:41 +0100 Subject: [PATCH] spaces --- lib/json.ml | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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))))