include Generic_io.S_WITH_CONCURRENCY with type 'a t = 'a Lwt.t