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

M20210701: reapply index

Browse source
This commit is contained in:
Reynir Björnsson 2021-07-05 10:21:07 +02:00
parent 21065c9f44
commit cc092ca9d8
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
bin/migrations/m20210701.ml
View file

@ -3,6 +3,10 @@ let identifier = "2021-07-01"
let migrate_doc = "build.main_binary deferred foreign key constraint" let migrate_doc = "build.main_binary deferred foreign key constraint"
let rollback_doc = "build.main_binary immediate foreign key constraint" let rollback_doc = "build.main_binary immediate foreign key constraint"
let idx_build_job_start =
Caqti_request.exec Caqti_type.unit
"CREATE INDEX idx_build_job_start ON build(job, start_d DESC, start_ps DESC)"
let new_build = let new_build =
Caqti_request.exec Caqti_request.exec
Caqti_type.unit Caqti_type.unit
@ -76,6 +80,7 @@ let migrate _datadir (module Db : Caqti_blocking.CONNECTION) =
Db.exec copy_build () >>= fun () -> Db.exec copy_build () >>= fun () ->
Db.exec drop_build () >>= fun () -> Db.exec drop_build () >>= fun () ->
Db.exec rename_build () >>= fun () -> Db.exec rename_build () >>= fun () ->
Db.exec idx_build_job_start () >>= fun () ->
Db.exec (Grej.set_version new_version) () Db.exec (Grej.set_version new_version) ()
let rollback _datadir (module Db : Caqti_blocking.CONNECTION) = let rollback _datadir (module Db : Caqti_blocking.CONNECTION) =
@ -84,4 +89,5 @@ let rollback _datadir (module Db : Caqti_blocking.CONNECTION) =
Db.exec copy_build () >>= fun () -> Db.exec copy_build () >>= fun () ->
Db.exec drop_build () >>= fun () -> Db.exec drop_build () >>= fun () ->
Db.exec rename_build () >>= fun () -> Db.exec rename_build () >>= fun () ->
Db.exec idx_build_job_start () >>= fun () ->
Db.exec (Grej.set_version old_version) () Db.exec (Grej.set_version old_version) ()