From a4cbf694160b74a70735db65adb712d40b417079 Mon Sep 17 00:00:00 2001
From: John Estabrook <jestabro@vyos.io>
Date: Sun, 16 Mar 2025 22:13:10 -0500
Subject: T7121: add commit_store stub callback and expose needed functions

---
 src/commit.ml | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src/commit.ml')

diff --git a/src/commit.ml b/src/commit.ml
index 4b9edd1..c8cb43e 100644
--- a/src/commit.ml
+++ b/src/commit.ml
@@ -155,6 +155,18 @@ let calculate_priority_lists rt at wt =
     let cs_del, cs_add = legacy_order del_tree cs_del' cs_add' in
     List.rev (CS.elements cs_del), CS.elements cs_add
 
+let commit_store c_data =
+    let out =
+        let func acc nd =
+            match nd.reply with
+            | None -> acc ^ "\n"
+            | Some r ->
+                match r.success with
+                | true -> acc ^ "\n"
+                | false -> acc ^ "\n" ^ r.out
+        in List.fold_left func "" c_data.node_list
+    in print_endline out
+
 let show_commit_data at wt =
     let vc =
         Startup.load_daemon_config Defaults.defaults.config_file in
-- 
cgit v1.2.3