package containers
A modular, clean and powerful extension of the OCaml standard library
Install
Dune Dependency
Authors
Maintainers
Sources
v3.3.tar.gz
md5=aa946f452a156b7cd0b932b5a849b44e
sha512=fbb6e519ea918afd3895de4cb74bb93a1d7d8899aa1d9def0ee0576a4f648413e3a7d9639040a1117516efb74c66c3432e6da79e6284d2315327175e22766717
doc/src/containers/CCShimsMkLet_.ml.html
Source file CCShimsMkLet_.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
(** glue code for let-operators on OCaml >= 4.08 (auto generated) *) module type S = sig type 'a t_let val (let+) : 'a t_let -> ('a -> 'b) -> 'b t_let val (and+) : 'a t_let -> 'b t_let -> ('a * 'b) t_let val (let*) : 'a t_let -> ('a -> 'b t_let) -> 'b t_let val (and*) : 'a t_let -> 'b t_let -> ('a * 'b) t_let end module Make(X:sig type 'a t val (>|=) : 'a t -> ('a -> 'b) -> 'b t val monoid_product : 'a t -> 'b t -> ('a * 'b) t val (>>=) : 'a t -> ('a -> 'b t) -> 'b t end) : S with type 'a t_let = 'a X.t = struct type 'a t_let = 'a X.t let (let+) = X.(>|=) let (and+) = X.monoid_product let (let*) = X.(>>=) let (and*) = X.monoid_product end[@@inline] module type S2 = sig type ('a,'e) t_let2 val (let+) : ('a,'e) t_let2 -> ('a -> 'b) -> ('b,'e) t_let2 val (and+) : ('a,'e) t_let2 -> ('b,'e) t_let2 -> ('a * 'b, 'e) t_let2 val (let*) : ('a,'e) t_let2 -> ('a -> ('b,'e) t_let2) -> ('b,'e) t_let2 val (and*) : ('a,'e) t_let2 -> ('b,'e) t_let2 -> ('a * 'b,'e) t_let2 end module Make2(X:sig type ('a,'b) t val (>|=) : ('a,'e) t -> ('a -> 'b) -> ('b,'e) t val monoid_product : ('a,'e) t -> ('b,'e) t -> ('a * 'b, 'e) t val (>>=) : ('a,'e) t -> ('a -> ('b,'e) t) -> ('b,'e) t end) : S2 with type ('a,'e) t_let2 = ('a,'e) X.t = struct type ('a,'e) t_let2 = ('a,'e) X.t let (let+) = X.(>|=) let (and+) = X.monoid_product let (let*) = X.(>>=) let (and*) = X.monoid_product end[@@inline]
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>