package eio

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

Install

dune-project
 Dependency

Authors

Maintainers

Sources

eio-0.8.1.tbz
sha256=c4222f9b081465486a1c1a8dde6aa00178936d7c7b3a8565e0883a421e0e3547
sha512=d63d8b9500b492be93df4f29159aa6955588ca1e35e6a5817856e32ee4fec3395604dc7b64fc5a973ee8bd436bd65831e7b08fca9bf909f41afec4a65c4443b8

doc/src/eio.core/hook.ml.html

Source file hook.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
type t =
  | Null
  | Node : 'a Lwt_dllist.node -> t
  | Node_with_mutex : 'a Lwt_dllist.node * Mutex.t -> t

let null = Null

let remove = function
  | Null -> ()
  | Node n -> Lwt_dllist.remove n
  | Node_with_mutex (n, m) ->
    Mutex.lock m;
    Fun.protect ~finally:(fun () -> Mutex.unlock m)
      (fun () -> Lwt_dllist.remove n)