Module `Sihl__.Contract_migration`

type step = { label : string; statement : string; check_fk : bool; }
type steps = step list
type t = string * steps

val name : string

exception Exception of string
exception Dirty_migration

module type Sig = sig ... end

val to_sexp : (string * step list) -> Sexplib0.Sexp.t
val pp : Stdlib.Format.formatter -> (string * step list) -> unit
val empty : 'a -> 'a * 'b list
val create_step : label:string -> ?⁠check_fk:bool -> string -> step
val add_step : 'a -> ('b * 'a list) -> 'b * 'a list