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

Rename local variable meta(s) -> build(s)

Browse source
This commit is contained in:
Robur 2021-08-31 12:07:18 +00:00
parent 16c403b6b5
commit e7daf0366b
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/model.ml
View file

@ -110,11 +110,11 @@ let job_and_readme job (module Db : CONN) =
Lwt_list.fold_left_s (fun acc hash -> Lwt_list.fold_left_s (fun acc hash ->
match acc with match acc with
| Error _ as e -> Lwt.return e | Error _ as e -> Lwt.return e
| Ok (fail, metas) -> | Ok (fail, builds) ->
Db.find Builder_db.Build.get_with_main_binary_by_hash hash >|= fun (meta, file) -> Db.find Builder_db.Build.get_with_main_binary_by_hash hash >|= fun (build, file) ->
match fail with match fail with
| Some f when Ptime.is_later ~than:meta.Builder_db.Build.start f.Builder_db.Build.start -> None, (meta, file) :: (f, None) :: metas | Some f when Ptime.is_later ~than:build.Builder_db.Build.start f.Builder_db.Build.start -> None, (build, file) :: (f, None) :: builds
| x -> x, (meta, file) :: metas) | x -> x, (build, file) :: builds)
(Ok (failed, [])) sha >|= fun (x, builds) -> (Ok (failed, [])) sha >|= fun (x, builds) ->
let builds = match x with None -> builds | Some f -> (f, None) :: builds in let builds = match x with None -> builds | Some f -> (f, None) :: builds in
readme, List.rev builds readme, List.rev builds