package eio

  1. Overview
  2. Docs
Effect-based direct-style IO API for OCaml

Install 

dune-project
 Dependency

github.com Edit opam file Versions (20)

Authors

  1. A
    Anil Madhavapeddy
  2. T
    Thomas Leonard

Maintainers

  1. A
    anil@recoil.org

Sources

eio-1.4.tbz
sha256=ba11ad486f492130dbb486f2b3bdc4905643f10016806ddf86e9a34e4346aaa5
sha512=57ef2c137ccdc26d8029e636b6a4ee92da7c6b2f35954946bd56ca595d6947a8ec42f6f83f8552f73d6719e6ce2314cae2e2fad1686a387522935e6f90e9a8d9

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) }