diff options
| author | John Estabrook <jestabro@vyos.io> | 2025-03-16 22:13:10 -0500 |
|---|---|---|
| committer | John Estabrook <jestabro@vyos.io> | 2025-03-16 23:13:39 -0500 |
| commit | a4cbf694160b74a70735db65adb712d40b417079 (patch) | |
| tree | 46fc7dfeca0eaeb6d83d82899336f3beb07a2955 /src/commit.ml | |
| parent | 42a38b507589968248718c91ae34cf6afa1c3017 (diff) | |
| download | vyconf-a4cbf694160b74a70735db65adb712d40b417079.tar.gz vyconf-a4cbf694160b74a70735db65adb712d40b417079.zip | |
T7121: add commit_store stub callback and expose needed functions
Diffstat (limited to 'src/commit.ml')
| -rw-r--r-- | src/commit.ml | 12 |
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 |