package eio
Effect-based direct-style IO API for OCaml
Install
dune-project
Dependency
Authors
Maintainers
Sources
eio-1.3.tbz
sha256=8ed5c13e6689f31c85dca5f12762d84b8cc0042a7b07d3e464df6eb4b72b3dfc
sha512=46e8f817f32c3316e7f35835a136ad177a295b3306351eb2efa2386482b0169a5b19ed2925b32da2a1f10d40f083fe3d588dd401908f9fec6e4a44cd68535204
doc/src/eio.mock/handler.ml.html
Source file handler.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
type 'a actions = 'a Action.t list type 'a t = { default_action : 'a Action.t; mutable handler : (unit -> 'a); } let run t = t.handler () let set_handler t f = t.handler <- f let seq t actions = let actions = ref actions in let next () = match !actions with | [] -> Action.run t.default_action | x :: xs -> actions := xs; Action.run x in set_handler t next let run_default_action t = Action.run t.default_action let make default_action = { default_action; handler = (fun () -> Action.run default_action) }
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>