Module Time.PiSource

Sourcemodule type CLOCK = sig ... end
Sourcetype Resource.pi +=
  1. | Clock : ('t, (module CLOCK with type t = 't and type time = 'time), [> 'time clock_ty ]) Resource.pi
Sourceval clock : (module CLOCK with type t = 't and type time = 'time) -> ('t, [> 'time clock_ty ]) Resource.handler