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