···

       
26
       
 
       
  let kind = "User" in

     

       
27
       
 
       
  let doc = "A Zulip user" in

     

       
28
       
 
       
  let make email full_name is_active is_admin is_bot =

     

       
29
       
-
       
    { email; full_name; is_active; is_admin; is_bot }

     

       
30
       
 
       
  in

     

       
31
       
 
       
  Jsont.Object.map ~kind ~doc make

     

       
32
       
 
       
  |> Jsont.Object.mem "email" Jsont.string ~enc:email

     
···

       
35
       
 
       
  |> Jsont.Object.mem "is_admin" Jsont.bool ~enc:is_admin

     

       
36
       
 
       
  |> Jsont.Object.mem "is_bot" Jsont.bool ~enc:is_bot

     

       
37
       
 
       
  |> Jsont.Object.finish

     

       
38
       
-
       


     

       
39
       
 
       
(* Decode and encode functions using Encode module *)

     

       
40
       
 
       
let of_json json =

     

       
41
       
 
       
  match Encode.from_json jsont json with

     

···

       
26
       
 
       
  let kind = "User" in

     

       
27
       
 
       
  let doc = "A Zulip user" in

     

       
28
       
 
       
  let make 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
       
 
       
  in

     

       
31
       
 
       
  Jsont.Object.map ~kind ~doc make

     

       
32
       
 
       
  |> Jsont.Object.mem "email" Jsont.string ~enc:email

     
···

       
35
       
 
       
  |> Jsont.Object.mem "is_admin" Jsont.bool ~enc:is_admin

     

       
36
       
 
       
  |> Jsont.Object.mem "is_bot" Jsont.bool ~enc:is_bot

     

       
37
       
 
       
  |> Jsont.Object.finish

     

       
0
       
 
       

     

       
38
       
 
       
(* Decode and encode functions using Encode module *)

     

       
39
       
 
       
let of_json json =

     

       
40
       
 
       
  match Encode.from_json jsont json with