Reynir Björnsson
7c7282894b
Typed database IDs Reviewed-on: https://git.robur.io/robur/builder-web/pulls/47 Co-Authored-By: Reynir Björnsson <reynir@reynir.dk> Co-Committed-By: Reynir Björnsson <reynir@reynir.dk>
22 lines
980 B
OCaml
22 lines
980 B
OCaml
module Rep = Builder_db.Rep
|
|
|
|
let broken_builds =
|
|
Caqti_request.collect ~oneshot:true
|
|
Caqti_type.unit
|
|
(Caqti_type.tup3 (Rep.id `build) Rep.uuid Caqti_type.string)
|
|
{| SELECT b.id, b.uuid, job.name FROM build b, job
|
|
WHERE result_kind = 0 AND result_code = 0 AND main_binary IS NOT NULL AND job.id = b.job AND
|
|
(SELECT COUNT( * ) FROM build_artifact a
|
|
WHERE a.build = b.id and a.filepath = b.main_binary) = 0
|
|
|}
|
|
|
|
let fixup _datadir (module Db : Caqti_blocking.CONNECTION) =
|
|
let open Rresult.R.Infix in
|
|
Grej.check_version ~user_version:3L (module Db) >>= fun () ->
|
|
Db.rev_collect_list broken_builds () >>= fun broken_builds ->
|
|
Grej.list_iter_result
|
|
(fun ((build, uuid, job_name) : [`build] Rep.id * Uuidm.t * string) ->
|
|
Format.printf "Removing job %a.\nPlease clean up data files in /var/db/builder-web/%s/%a\n"
|
|
Uuidm.pp uuid job_name Uuidm.pp uuid;
|
|
Db.exec Builder_db.Build.remove build)
|
|
broken_builds
|