diff options
Diffstat (limited to 'src/vyconf_pbt.ml')
-rw-r--r-- | src/vyconf_pbt.ml | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/src/vyconf_pbt.ml b/src/vyconf_pbt.ml index 9d2845d..48a8e87 100644 --- a/src/vyconf_pbt.ml +++ b/src/vyconf_pbt.ml @@ -26,7 +26,6 @@ type request_validate = { type request_set = { path : string list; - ephemeral : bool option; } type request_delete = { @@ -54,6 +53,7 @@ type request_commit = { confirm : bool option; confirm_timeout : int32 option; comment : string option; + dry_run : bool option; } type request_rollback = { @@ -195,10 +195,8 @@ let rec default_request_validate let rec default_request_set ?path:((path:string list) = []) - ?ephemeral:((ephemeral:bool option) = None) () : request_set = { path; - ephemeral; } let rec default_request_delete @@ -239,10 +237,12 @@ let rec default_request_commit ?confirm:((confirm:bool option) = None) ?confirm_timeout:((confirm_timeout:int32 option) = None) ?comment:((comment:string option) = None) + ?dry_run:((dry_run:bool option) = None) () : request_commit = { confirm; confirm_timeout; comment; + dry_run; } let rec default_request_rollback @@ -393,12 +393,10 @@ let default_request_validate_mutable () : request_validate_mutable = { type request_set_mutable = { mutable path : string list; - mutable ephemeral : bool option; } let default_request_set_mutable () : request_set_mutable = { path = []; - ephemeral = None; } type request_delete_mutable = { @@ -447,12 +445,14 @@ type request_commit_mutable = { mutable confirm : bool option; mutable confirm_timeout : int32 option; mutable comment : string option; + mutable dry_run : bool option; } let default_request_commit_mutable () : request_commit_mutable = { confirm = None; confirm_timeout = None; comment = None; + dry_run = None; } type request_rollback_mutable = { @@ -636,7 +636,6 @@ let rec pp_request_validate fmt (v:request_validate) = let rec pp_request_set fmt (v:request_set) = let pp_i fmt () = Pbrt.Pp.pp_record_field ~first:true "path" (Pbrt.Pp.pp_list Pbrt.Pp.pp_string) fmt v.path; - Pbrt.Pp.pp_record_field ~first:false "ephemeral" (Pbrt.Pp.pp_option Pbrt.Pp.pp_bool) fmt v.ephemeral; in Pbrt.Pp.pp_brk pp_i fmt () @@ -674,6 +673,7 @@ let rec pp_request_commit fmt (v:request_commit) = Pbrt.Pp.pp_record_field ~first:true "confirm" (Pbrt.Pp.pp_option Pbrt.Pp.pp_bool) fmt v.confirm; Pbrt.Pp.pp_record_field ~first:false "confirm_timeout" (Pbrt.Pp.pp_option Pbrt.Pp.pp_int32) fmt v.confirm_timeout; Pbrt.Pp.pp_record_field ~first:false "comment" (Pbrt.Pp.pp_option Pbrt.Pp.pp_string) fmt v.comment; + Pbrt.Pp.pp_record_field ~first:false "dry_run" (Pbrt.Pp.pp_option Pbrt.Pp.pp_bool) fmt v.dry_run; in Pbrt.Pp.pp_brk pp_i fmt () @@ -883,12 +883,6 @@ let rec encode_pb_request_set (v:request_set) encoder = Pbrt.Encoder.string x encoder; Pbrt.Encoder.key 1 Pbrt.Bytes encoder; ) v.path encoder; - begin match v.ephemeral with - | Some x -> - Pbrt.Encoder.bool x encoder; - Pbrt.Encoder.key 3 Pbrt.Varint encoder; - | None -> (); - end; () let rec encode_pb_request_delete (v:request_delete) encoder = @@ -948,6 +942,12 @@ let rec encode_pb_request_commit (v:request_commit) encoder = Pbrt.Encoder.key 3 Pbrt.Bytes encoder; | None -> (); end; + begin match v.dry_run with + | Some x -> + Pbrt.Encoder.bool x encoder; + Pbrt.Encoder.key 4 Pbrt.Varint encoder; + | None -> (); + end; () let rec encode_pb_request_rollback (v:request_rollback) encoder = @@ -1303,16 +1303,10 @@ let rec decode_pb_request_set d = end | Some (1, pk) -> Pbrt.Decoder.unexpected_payload "Message(request_set), field(1)" pk - | Some (3, Pbrt.Varint) -> begin - v.ephemeral <- Some (Pbrt.Decoder.bool d); - end - | Some (3, pk) -> - Pbrt.Decoder.unexpected_payload "Message(request_set), field(3)" pk | Some (_, payload_kind) -> Pbrt.Decoder.skip d payload_kind done; ({ path = v.path; - ephemeral = v.ephemeral; } : request_set) let rec decode_pb_request_delete d = @@ -1453,12 +1447,18 @@ let rec decode_pb_request_commit d = end | Some (3, pk) -> Pbrt.Decoder.unexpected_payload "Message(request_commit), field(3)" pk + | Some (4, Pbrt.Varint) -> begin + v.dry_run <- Some (Pbrt.Decoder.bool d); + end + | Some (4, pk) -> + Pbrt.Decoder.unexpected_payload "Message(request_commit), field(4)" pk | Some (_, payload_kind) -> Pbrt.Decoder.skip d payload_kind done; ({ confirm = v.confirm; confirm_timeout = v.confirm_timeout; comment = v.comment; + dry_run = v.dry_run; } : request_commit) let rec decode_pb_request_rollback d = |