Merge pull request #19 from jestabro/commit-dry-run

T7302: add backend support for commit dry-run

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; }