From 7ad203a0249bd9db50dfb1df4adb9b7483406e30 Mon Sep 17 00:00:00 2001 From: Matias Goldfeld Date: Fri, 29 Jan 2021 13:40:29 -0500 Subject: Revert "Started conversion to ppx_yojson_conv" This reverts commit c937240fdd2036edd493debb76117165e4084e8b. --- lib/models/id/role_id.ml | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'lib/models/id/role_id.ml') diff --git a/lib/models/id/role_id.ml b/lib/models/id/role_id.ml index a86253c..0bbf8be 100644 --- a/lib/models/id/role_id.ml +++ b/lib/models/id/role_id.ml @@ -1,3 +1,13 @@ -type t = [ `Role_id of Snowflake.t ] [@@deriving sexp, yojson] +open Core + +type t = [ `Role_id of Snowflake.t ] [@@deriving sexp] + +let of_yojson a : (t, string) result = + match Snowflake.of_yojson a with + | Ok id -> Ok (`Role_id id) + | Error err -> Error err + +let of_yojson_exn a : t = `Role_id (Snowflake.of_yojson_exn a) +let to_yojson (`Role_id id) = (Snowflake.to_yojson id) let get_id (`Role_id id) = id \ No newline at end of file -- cgit v1.2.3