My agentic slop goes here. Not intended for anyone else!
1type t 2 3val create : 4 name:string -> 5 description:string -> 6 ?invite_only:bool -> 7 ?history_public_to_subscribers:bool -> 8 unit -> t 9 10val name : t -> string 11val description : t -> string 12val invite_only : t -> bool 13val history_public_to_subscribers : t -> bool 14val to_json : t -> Error.json 15val of_json : Error.json -> (t, Error.t) result 16val pp : Format.formatter -> t -> unit