diff --git a/lib/Commands.ml b/lib/Commands.ml index 50e54a5..58b8286 100644 --- a/lib/Commands.ml +++ b/lib/Commands.ml @@ -15351,6 +15351,87 @@ on Android. |desc}] end [@@ocaml.doc {desc|No description provided |desc}] + module SetCPUPerformanceOverride = struct + module Response : sig + type result = Types.assoc + type error = { code : int; message : string } + + type t = { + id : int; + error : error option; + sessionId : Types.Target.SessionID.t option; + result : result option; + } + + val parse : string -> t + end = struct + type result = Types.assoc [@@deriving yojson] + type error = { code : int; message : string } [@@deriving yojson] + + type t = { + id : int; + error : error option; [@yojson.option] + sessionId : Types.Target.SessionID.t option; [@yojson.option] + result : result option; [@yojson.option] + } + [@@deriving yojson] + + let parse response = response |> Yojson.Safe.from_string |> t_of_yojson + end + + module Params = struct + type setcpuperformanceoverride_performancetier = + [ `unknown | `low | `mid | `high | `ultra ] + + let setcpuperformanceoverride_performancetier_of_yojson = function + | `String "unknown" -> `unknown + | `String "low" -> `low + | `String "mid" -> `mid + | `String "high" -> `high + | `String "ultra" -> `ultra + | `String s -> failwith ("unknown enum: " ^ s) + | _ -> failwith "unknown enum type" + + let yojson_of_setcpuperformanceoverride_performancetier = function + | `unknown -> `String "unknown" + | `low -> `String "low" + | `mid -> `String "mid" + | `high -> `String "high" + | `ultra -> `String "ultra" + + type t = { + performanceTier : setcpuperformanceoverride_performancetier option; + [@key "performanceTier"] + [@yojson.option] + [@ocaml.doc + "Override value. Omitting the parameter disables the override."] + } + [@@deriving yojson] + + let make ?performanceTier () = { performanceTier } + end + + module Request = struct + type t = { + id : int; + sessionId : Types.Target.SessionID.t option; [@yojson.option] + method_ : string; [@key "method"] + params : Params.t; + } + [@@deriving yojson] + + let make ?sessionId ~params id = + { + id; + method_ = "Emulation.setCPUPerformanceOverride"; + sessionId; + params; + } + |> yojson_of_t |> Yojson.Safe.to_string + end + end + [@@ocaml.doc {desc|Overrides the value of navigator.cpuPerformance |desc}] + module SetUserAgentOverride = struct module Response : sig type result = Types.assoc diff --git a/package.json b/package.json index 8b93611..4fc1f91 100644 --- a/package.json +++ b/package.json @@ -1,6 +1,6 @@ { "name": "cdp", - "version": "0.0.1680125", + "version": "0.0.1681094", "description": "Chrome Devtools Protocol Types for OCaml", "license": "MIT", "repository": {