diff options
| author | John Estabrook <jestabro@vyos.io> | 2025-04-13 20:53:48 -0500 |
|---|---|---|
| committer | John Estabrook <jestabro@vyos.io> | 2025-05-12 11:26:41 -0500 |
| commit | 3c4d8803fc84da305aaa72cf97ca96fb19d186c9 (patch) | |
| tree | faddd3e3644af6991c64460d43d17c89ce530c50 /src/vyconfd.ml | |
| parent | 4f8cd87849ae16f5efb127b63767176a243bcd8d (diff) | |
| download | vyconf-3c4d8803fc84da305aaa72cf97ca96fb19d186c9.tar.gz vyconf-3c4d8803fc84da305aaa72cf97ca96fb19d186c9.zip | |
T7272: refactor commit function for clarity
Diffstat (limited to 'src/vyconfd.ml')
| -rw-r--r-- | src/vyconfd.ml | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/src/vyconfd.ml b/src/vyconfd.ml index 885fd20..bc607a3 100644 --- a/src/vyconfd.ml +++ b/src/vyconfd.ml @@ -192,15 +192,10 @@ let save world token (req: request_save) = let commit world token (req: request_commit) = let s = find_session token in - let at = world.Session.running_config in - let wt = s.proposed_config in - let rt = world.reference_tree in - let vc = world.vyconf_config in - let () = IC.write_internal at (FP.concat vc.session_dir vc.running_cache) in - let () = IC.write_internal wt (FP.concat vc.session_dir vc.session_cache) in - let req_dry_run = Option.value req.dry_run ~default:false in - let commit_data = CC.make_commit_data ~dry_run:req_dry_run rt at wt token in + + let commit_data = Session.prepare_commit ~dry_run:req_dry_run world s token + in let%lwt received_commit_data = VC.do_commit commit_data in let%lwt result_commit_data = Lwt.return (CC.commit_update received_commit_data) |