1 files changed, 12 insertions, 0 deletions
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