File: resource.ml

package info (click to toggle)
ocaml-eio 1.3-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 2,548 kB
  • sloc: ml: 14,608; ansic: 1,237; makefile: 25
file content (9 lines) | stat: -rw-r--r-- 317 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
 
type 'a t = ([> `Unix_fd] as 'a) Eio.Resource.t

type ('t, _, _) Eio.Resource.pi += T : ('t, 't -> Fd.t, [> `Unix_fd]) Eio.Resource.pi
let fd (Eio.Resource.T (t, ops)) = Eio.Resource.get ops T t

let fd_opt (Eio.Resource.T (t, ops)) =
  match Eio.Resource.get_opt ops T with
  | Some f -> Some (f t)
  | None -> None