package eio

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

Install

dune-project
 Dependency

Authors

Maintainers

Sources

eio-0.9.tbz
sha256=cfbdf92e480063333f9c6ab234ee46aceeadb3209744c801cdf8a274b1997d99
sha512=410e334103a9ae9805c57ad12ca9726b0b74b82cca4477004521ccfcc7ddb0f63ec6f38fdd69728792d3dff1ab3f8ad990cd6b02b45f467cf492e2840941c669

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)