Source file `io_lwt.ml`

1
2
3
4
5
6
7
8
9
10
11
type 'a t = 'a Lwt.t

let return = Lwt.return

let ( let* ) = Lwt.Syntax.( let* )

let sleep_s = Lwt_unix.sleep

let spawn = Lwt.async

let[@inline] protect ~finally f = Lwt.finalize f finally