package sihl

  1. Overview
  2. Docs

Source file sihl_migration.ml

1
2
3
4
5
6
7
8
9
10
include Model.Migration
module Service = Service

let empty label = label, []
let create_step ~label ?(check_fk = true) statement = { label; statement; check_fk }

(* Append the migration step to the list of steps *)
let add_step step (label, steps) = label, List.concat [ steps; [ step ] ]

module Sig = Sig