diff options
Diffstat (limited to 'src/commit.ml')
| -rw-r--r-- | src/commit.ml | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/src/commit.ml b/src/commit.ml index ba740b5..19c9844 100644 --- a/src/commit.ml +++ b/src/commit.ml @@ -169,18 +169,6 @@ let calculate_priority_lists rt diff = 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 - (* The base config_result is the intersection of running and proposed configs: on success, added paths are added; deleted paths are ignored @@ -239,11 +227,12 @@ let commit_update c_data = | Some _ -> config_result_update acc_data nd in List.fold_left func c_data c_data.node_list -let make_commit_data rt at wt id = +let make_commit_data ?(dry_run=false) rt at wt id = let diff = CD.diff_tree [] at wt in let del_list, add_list = calculate_priority_lists rt diff in { default_commit_data with session_id = id; + dry_run = dry_run; config_diff = diff; config_result = CT.get_subtree diff ["inter"]; node_list = del_list @ add_list; } |