From b2f081fff12093a7d3434859ebd621608dde6c7d Mon Sep 17 00:00:00 2001 From: Matias Goldfeld Date: Sun, 7 Feb 2021 20:21:47 -0500 Subject: Reverted earlier changes for good --- lib/models/id/user_id_t.ml | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 'lib/models/id/user_id_t.ml') diff --git a/lib/models/id/user_id_t.ml b/lib/models/id/user_id_t.ml index fab0f00..cf1634a 100644 --- a/lib/models/id/user_id_t.ml +++ b/lib/models/id/user_id_t.ml @@ -1,7 +1,15 @@ open Core -type t = Snowflake.t [@@deriving sexp, yojson] +type t = [ `User_id of Snowflake.t ] [@@deriving sexp] -let compare t t' = Int64.compare t t' +let compare (`User_id t) (`User_id t') = Int.compare t t' -let get_id id = id \ No newline at end of file +let of_yojson a : (t, string) result = + match Snowflake.of_yojson a with + | Ok id -> Ok (`User_id id) + | Error err -> Error err + +let of_yojson_exn a : t = `User_id (Snowflake.of_yojson_exn a) +let to_yojson (`User_id id) = (Snowflake.to_yojson id) + +let get_id (`User_id id) = id \ No newline at end of file -- cgit v1.2.3