builder-web/bin/migrations/grej.ml

40 lines
1.1 KiB
OCaml
Raw Normal View History

2021-03-10 09:50:15 +00:00
(* Grej is utilities *)
2021-10-20 09:10:43 +00:00
module Syntax = struct
let ( let* ) = Result.bind
let ( let+ ) x f = Result.map f x
end
module Infix = struct
let ( >>= ) = Result.bind
let ( >>| ) x f = Result.map f x
end
open Syntax
2021-03-10 09:50:15 +00:00
let set_version version =
Caqti_request.exec ~oneshot:true
Caqti_type.unit
(Printf.sprintf "PRAGMA user_version = %Ld" version)
let check_version
?application_id:(desired_application_id=Builder_db.application_id)
~user_version:desired_user_version
(module Db : Caqti_blocking.CONNECTION) =
2021-10-20 09:10:43 +00:00
let* application_id = Db.find Builder_db.get_application_id () in
let* user_version = Db.find Builder_db.get_version () in
2021-03-10 09:50:15 +00:00
if application_id <> desired_application_id || user_version <> desired_user_version
then Error (`Wrong_version (application_id, user_version))
else Ok ()
2021-03-12 08:47:28 +00:00
let list_iter_result f xs =
List.fold_left
2021-10-20 09:10:43 +00:00
(fun r x -> let* () = r in f x)
2021-03-12 08:47:28 +00:00
(Ok ())
xs
let foreign_keys on =
let on = if on then "ON" else "OFF" in
Caqti_request.exec
Caqti_type.unit
(Printf.sprintf "PRAGMA foreign_keys = %s" on)