robur/builder-web
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

model, add_build: first put the files into place, then commit to the database

Browse source
This commit is contained in:
Robur 2024-01-09 16:37:39 +00:00
parent 5d4d84f705
commit 22f3eb3893
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/model.ml
View file

@ -463,8 +463,8 @@ let add_build
Db.exec Build_artifact.add (file, id)) Db.exec Build_artifact.add (file, id))
(Lwt_result.return ()) (Lwt_result.return ())
remaining_artifacts_to_add >>= fun () -> remaining_artifacts_to_add >>= fun () ->
Db.commit () >>= fun () -> commit_files datadir staging_dir job_name uuid artifacts >>= fun () ->
commit_files datadir staging_dir job_name uuid artifacts >|= fun () -> Db.commit () >|= fun () ->
main_binary main_binary
in in
Lwt_result.bind_lwt_error (or_cleanup r) Lwt_result.bind_lwt_error (or_cleanup r)