package core_kernel
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>
Industrial strength alternative to OCaml's standard library
Install
dune-project
Dependency
Authors
Maintainers
Sources
v0.14.2.tar.gz
sha256=66f5353964d35a994ec7fdc88fe60ae5d497ac89a8042786f3e37d9e2202ce4b
md5=ede2f6d22eaa8320f88bac67d41b5cff
doc/src/core_kernel/comparable_intf.ml.html
Source file comparable_intf.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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68open! Import module type Infix = Base.Comparable.Infix module type Polymorphic_compare = Base.Comparable.Polymorphic_compare module type Validate = Base.Comparable.Validate module type With_zero = Base.Comparable.With_zero module type S_common = sig include Base.Comparable.S module Replace_polymorphic_compare : Polymorphic_compare with type t := t end (** Usage example: {[ module Foo : sig type t = ... include Comparable.S with type t := t end ]} Then use [Comparable.Make] in the struct (see comparable.mli for an example). *) module type S_plain = sig include S_common module Map : Map.S_plain with type Key.t = t with type Key.comparator_witness = comparator_witness module Set : Set.S_plain with type Elt.t = t with type Elt.comparator_witness = comparator_witness end module type S = sig include S_common module Map : Map.S with type Key.t = t with type Key.comparator_witness = comparator_witness module Set : Set.S with type Elt.t = t with type Elt.comparator_witness = comparator_witness end module type Map_and_set_binable = sig type t include Comparator.S with type t := t module Map : Map.S_binable with type Key.t = t with type Key.comparator_witness = comparator_witness module Set : Set.S_binable with type Elt.t = t with type Elt.comparator_witness = comparator_witness end module type S_binable = sig include S_common include Map_and_set_binable with type t := t with type comparator_witness := comparator_witness end
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>