19 lines
573 B
OCaml
19 lines
573 B
OCaml
open Rresult.R.Infix
|
|
|
|
let migrate _datadir (module Db : Caqti_blocking.CONNECTION) =
|
|
let job_build_idx =
|
|
Caqti_request.exec ~oneshot:true
|
|
Caqti_type.unit
|
|
"CREATE INDEX job_build_idx ON build(job)";
|
|
in
|
|
Grej.check_version ~user_version:1L (module Db) >>= fun () ->
|
|
Db.exec job_build_idx ()
|
|
|
|
let rollback _datadir (module Db : Caqti_blocking.CONNECTION) =
|
|
let q =
|
|
Caqti_request.exec ~oneshot:true
|
|
Caqti_type.unit
|
|
"DROP INDEX IF EXISTS job_build_idx"
|
|
in
|
|
Grej.check_version ~user_version:1L (module Db) >>= fun () ->
|
|
Db.exec q ()
|