From 5275acdb005dfb2fb842b340f56c815133fa7fe8 Mon Sep 17 00:00:00 2001
From: John Estabrook <jestabro@vyos.io>
Date: Mon, 11 Aug 2025 11:10:34 -0500
Subject: T7718: use revised validate_tree

---
 src/session.ml | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

(limited to 'src/session.ml')

diff --git a/src/session.ml b/src/session.ml
index 5cd5027..375ec43 100644
--- a/src/session.ml
+++ b/src/session.ml
@@ -75,17 +75,8 @@ let validate w _s path =
         RT.validate_path D.(w.dirs.validators) w.reference_tree path
     with RT.Validation_error x -> raise (Session_error x)
 
-let validate_tree w' t =
-    let validate_path w out path =
-        let res =
-            try
-                RT.validate_path D.(w.dirs.validators) w.reference_tree path;
-                out
-            with RT.Validation_error x -> out ^ x
-        in res
-    in
-    let paths = CT.value_paths_of_tree t in
-    let out = List.fold_left (validate_path w') "" paths in
+let validate_tree w t =
+    let out = RT.validate_tree D.(w.dirs.validators) w.reference_tree t in
     match out with
     | "" -> ()
     | _ -> raise (Session_error out)
-- 
cgit v1.2.3


From c652a90ef4a5b4a78b48a390e59370b73b591f50 Mon Sep 17 00:00:00 2001
From: John Estabrook <jestabro@vyos.io>
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