package sihl-type

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

Source file migration_state.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
type t =
  { namespace : string
  ; version : int
  ; dirty : bool
  }

let create ~namespace = { namespace; version = 0; dirty = true }
let mark_dirty state = { state with dirty = true }
let mark_clean state = { state with dirty = false }
let increment state = { state with version = state.version + 1 }

let steps_to_apply (namespace, steps) { version; _ } =
  namespace, CCList.drop version steps
;;

let of_tuple (namespace, version, dirty) = { namespace; version; dirty }
let to_tuple state = state.namespace, state.version, state.dirty
let dirty state = state.dirty