From c937240fdd2036edd493debb76117165e4084e8b Mon Sep 17 00:00:00 2001
From: Matias Goldfeld <2000matu@gmail.com>
Date: Thu, 28 Jan 2021 02:26:36 -0500
Subject: Started conversion to ppx_yojson_conv

---
 lib/models/id/user_id_t.ml | 14 +++-----------
 1 file changed, 3 insertions(+), 11 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 214fa14..fab0f00 100644
--- a/lib/models/id/user_id_t.ml
+++ b/lib/models/id/user_id_t.ml
@@ -1,15 +1,7 @@
 open Core
 
-type t = [ `User_id of Snowflake.t ] [@@deriving sexp]
+type t = Snowflake.t [@@deriving sexp, yojson]
 
-let compare (`User_id t) (`User_id t') = Int64.compare t t'
+let compare t t' = Int64.compare t t'
 
-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
+let get_id id = id
\ No newline at end of file
-- 
cgit v1.2.3