From c652a90ef4a5b4a78b48a390e59370b73b591f50 Mon Sep 17 00:00:00 2001 From: John Estabrook Date: Wed, 13 Aug 2025 15:29:37 -0500 Subject: T7718: move prune_del_path to Vyos1x.Config_tree --- src/session.ml | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) (limited to 'src/session.ml') diff --git a/src/session.ml b/src/session.ml index 375ec43..31bd411 100644 --- a/src/session.ml +++ b/src/session.ml @@ -101,22 +101,13 @@ let set w s path = in {s with proposed_config=config; changeset=(op :: s.changeset)} -let prune_del_path node path = - if CT.is_tag_value node path then - let tag_path = Vyos1x.Util.drop_last path in - let terminal = VT.is_terminal_path node tag_path in - match terminal with - | true -> CT.delete node tag_path None - | false -> node - else node - let delete w s path = let path, value = split_path w s path in let op = CfgDelete (path, value) in let config = try apply_cfg_op op s.proposed_config |> - (fun c -> prune_del_path c path) + (fun c -> CT.prune_delete c path) with | VT.Nonexistent_path | CT.No_such_value -> s.proposed_config in -- cgit v1.2.3