sihl
  1. Overview
  2. Docs
type step = {
  1. label : string;
  2. statement : string;
  3. 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 : Format.formatter -> (string * step list) -> unit
val empty : 'a -> 'b * 'c list
val create_step : label:string -> ?check_fk:bool -> string -> step
val add_step : 'a -> ('b * 'c list) -> 'd * 'c list