[< `R | `W | `X ] ->
Unix.file_descr ->
object
val mutable put_ : < get : 'a > Queue.t option
val mutable state_ :
[ `Exception of exn
| `Final of 'a
| `Loaded of Cf_poll.t
| `Unloaded
| `Working of Cf_poll.t * 'a ]
method canget : bool
method get : 'a
method load : ?q:< get : 'a > Queue.t -> t -> unit
method private load_ : t -> unit
method private virtual service_ :
Cf_poll.t ->
[ `Exception of exn
| `Final of 'a
| `Loaded of Cf_poll.t
| `Unloaded
| `Working of Cf_poll.t * 'a ]
method unload : unit
method private unload_ : t -> unit
end