module Sqlexpr_concurrency: sig .. end
sig
end
module type THREAD = sig .. end
module Id: THREAD with type 'a t = 'a
THREAD
with type 'a t = 'a
module Lwt: THREAD with type 'a t = 'a Lwt.t
with type 'a t = 'a Lwt.t