type producertype consumertype 'a response = ('a, Kafka.error * string) Stdlib.result
val produce : producer -> Kafka.topic -> Kafka.partition -> ?key:string -> string -> unit response Async.Deferred.tval new_producer : (string * string) list -> producer responseval new_consumer : (string * string) list -> consumer responseval new_topic : producer -> string -> (string * string) list -> Kafka.topic responseval consume : consumer -> topic:string -> Kafka.message Async.Pipe.Reader.t responseval destroy_consumer : consumer -> unitval destroy_producer : producer -> unit