package sihl

  1. Overview
  2. Docs
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file data_migration.ml

1
2
3
4
5
6
7
8
9
10
11
include Data_migration_core.Migration
module Model = Data_migration_core
module Service = Data_migration_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 ] ])
OCaml

Innovation. Community. Security.