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/channel_id_t.ml | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'lib/models/id/channel_id_t.ml') diff --git a/lib/models/id/channel_id_t.ml b/lib/models/id/channel_id_t.ml index 74588b1..cea85e0 100644 --- a/lib/models/id/channel_id_t.ml +++ b/lib/models/id/channel_id_t.ml @@ -1,7 +1,15 @@ open Core -type t = [ `Channel_id of Snowflake.t ] [@@deriving sexp, yojson] +type t = [ `Channel_id of Snowflake.t ] [@@deriving sexp] -let compare (`Channel_id t) (`Channel_id t') = Int64.compare t t' +let compare (`Channel_id t) (`Channel_id t') = Int.compare t t' + +let of_yojson a : (t, string) result = + match Snowflake.of_yojson a with + | Ok id -> Ok (`Channel_id id) + | Error err -> Error err + +let of_yojson_exn a : t = `Channel_id (Snowflake.of_yojson_exn a) +let to_yojson (`Channel_id id) = (Snowflake.to_yojson id) let get_id (`Channel_id id) = id \ No newline at end of file -- cgit v1.2.3