My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(** Main bot server implementation *)
2
3type t
4
5(** Create a bot server *)
6val create :
7 config:Server_config.t ->
8 registry:Bot_registry.t ->
9 (t, Zulip.zerror) result
10
11(** Start the bot server *)
12val run : t -> unit
13
14(** Stop the bot server gracefully *)
15val shutdown : t -> unit
16
17(** Resource-safe server management *)
18val with_server :
19 config:Server_config.t ->
20 registry:Bot_registry.t ->
21 (t -> 'a) ->
22 ('a, Zulip.zerror) result