sig exception Too_many_descriptors val pollset : unit -> Netsys_pollset.pollset val threaded_pollset : unit -> Netsys_pollset.pollset module Debug : sig val enable : bool Pervasives.ref end end