package sihl
The modular functional web framework
Install
Dune Dependency
Authors
Maintainers
Sources
sihl-queue-0.1.8.tbz
sha256=e77ffae26dac04e446ff07854de68a03edfd05031b5cb0dbcb6dc4a96e2d1c8e
sha512=7682c55136dbb8c68517ccd2c157a3556d966cb8565d15cf21ab270f92ea7e9ee5d3ac1479ba2e34a80f3052ca5dd1a74e964a8764c2164e3e71e9048fcdf51b
doc/src/sihl.migration/model.ml.html
Source file model.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
exception Exception of string 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 module Migration = struct type step = { label : string ; statement : string ; check_fk : bool } [@@deriving show, eq] type t = string * step list [@@deriving show, eq] end
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>