My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1type t
2
3val create :
4 email:string ->
5 full_name:string ->
6 ?is_active:bool ->
7 ?is_admin:bool ->
8 ?is_bot:bool ->
9 unit -> t
10
11val email : t -> string
12val full_name : t -> string
13val is_active : t -> bool
14val is_admin : t -> bool
15val is_bot : t -> bool
16val to_json : t -> Error.json
17val of_json : Error.json -> (t, Error.t) result
18val pp : Format.formatter -> t -> unit