From 57df76de6441899b659e30c6a8e9d7572b85f7a0 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Mon, 17 Dec 2018 13:13:10 -0700 Subject: Some abstractions --- lib/models/gen/user_j.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib/models/gen/user_j.ml') diff --git a/lib/models/gen/user_j.ml b/lib/models/gen/user_j.ml index 552a20d..e281a7f 100644 --- a/lib/models/gen/user_j.ml +++ b/lib/models/gen/user_j.ml @@ -6,7 +6,7 @@ type snowflake = Snowflake_t.t type t = User_t.t = { id: snowflake; username: string; - discriminator: string; + discriminator: int; avatar: string option; bot: bool } @@ -110,7 +110,7 @@ let write_t : _ -> t -> _ = ( Bi_outbuf.add_char ob ','; Bi_outbuf.add_string ob "\"discriminator\":"; ( - Yojson.Safe.write_string + Yojson.Safe.write_int ) ob x.discriminator; (match x.avatar with None -> () | Some x -> @@ -225,7 +225,7 @@ let read_t = ( | 2 -> field_discriminator := ( ( - Atdgen_runtime.Oj_run.read_string + Atdgen_runtime.Oj_run.read_int ) p lb ); bits0 := !bits0 lor 0x4; @@ -325,7 +325,7 @@ let read_t = ( | 2 -> field_discriminator := ( ( - Atdgen_runtime.Oj_run.read_string + Atdgen_runtime.Oj_run.read_int ) p lb ); bits0 := !bits0 lor 0x4; -- cgit v1.2.3