Process.Pimodule type MGR = sig ... endtype Eio.Resource.pi += | Mgr_unix : ('t, (module MGR with type t = 't), [> mgr_ty ]) Eio.Resource.pival mgr_unix :
(module MGR with type t = 't and type tag = 'tag) ->
('t, 'tag Eio.Process.mgr_ty) Eio.Resource.handler