T7737: apply auxiliary set/delete operations to config post-commit

1 files changed, 10 insertions, 4 deletions

diff --git a/src/vyconfd.ml b/src/vyconfd.ml
index 9e8c57e..05cd693 100644
--- a/src/vyconfd.ml
+++ b/src/vyconfd.ml
@@ -295,21 +295,27 @@ let commit world token (req: request_commit) =
         let res, out =
             init_data.success, init_data.out
         in
+        let () =
+            (Lwt_log.debug @@ Printf.sprintf "aux_changeset: %s" (Session.sprint_changeset s.aux_changeset)) |> Lwt.ignore_result
+        in
         match res with
         | false ->
             Lwt.return {response_tmpl with status=Internal_error; error=(Some out)}
         | true ->
-            (* partial commit *)
             if not req_dry_run then
-                world.Session.running_config <- result_commit_data.config_result;
+                let post_running, post_proposed =
+                    Session.post_process_commit world s (result_commit_data, proposed_config)
+                in
+                world.Session.running_config <- post_running;
                 let session =
                     { s with changeset =
                         Session.get_changeset
                         world
                         world.Session.running_config
-                        proposed_config;
+                        post_proposed;
                         aux_changeset = []; }
-                in Hashtbl.replace sessions token session;
+                in Hashtbl.replace sessions token session
+            else ();
 
             let success, msg_str =
                 result_commit_data.result.success, result_commit_data.result.out