summaryrefslogtreecommitdiff
path: root/src/commit.ml
diff options
context:
space:
mode:
Diffstat (limited to 'src/commit.ml')
-rw-r--r--src/commit.ml12
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