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

Do DB rollback on failed build insert

Browse source
This commit is contained in:
Reynir Björnsson 2021-03-25 10:42:04 +01:00
parent 7b5119189d
commit 265e00a718
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lib/model.ml
View file

@ -223,4 +223,11 @@ let add_build
Db.commit () >>= fun () -> Db.commit () >>= fun () ->
commit_files basedir staging_dir job_name uuid commit_files basedir staging_dir job_name uuid
in in
or_cleanup r Lwt_result.bind_lwt_err (or_cleanup r)
(fun e ->
Db.rollback ()
|> Lwt.map (fun r ->
Result.iter_error
(fun e' -> Log.err (fun m -> m "Failed rollback: %a" Caqti_error.pp e'))
r;
e))