this repo has no description
jsont
+1
-2
+1
-2
stack/zulip/lib/zulip/lib/user.ml
+1
-2
stack/zulip/lib/zulip/lib/user.ml
···
26
26
let kind = "User" in
27
27
let doc = "A Zulip user" in
28
28
let make email full_name is_active is_admin is_bot =
29
-
{ email; full_name; is_active; is_admin; is_bot }
29
+
{ email; full_name; user_id = None; delivery_email = None; is_active; is_admin; is_bot }
30
30
in
31
31
Jsont.Object.map ~kind ~doc make
32
32
|> Jsont.Object.mem "email" Jsont.string ~enc:email
···
35
35
|> Jsont.Object.mem "is_admin" Jsont.bool ~enc:is_admin
36
36
|> Jsont.Object.mem "is_bot" Jsont.bool ~enc:is_bot
37
37
|> Jsont.Object.finish
38
-
39
38
(* Decode and encode functions using Encode module *)
40
39
let of_json json =
41
40
match Encode.from_json jsont json with