From 8662e92987c437f59d09896a247ec2b5d82c4528 Mon Sep 17 00:00:00 2001 From: Adelyn Breedlove Date: Mon, 28 Jan 2019 10:31:51 -0700 Subject: Publish docs updates --- lib/models/id/role_id.ml | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (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 b3fa5a1..f055b1a 100644 --- a/lib/models/id/role_id.ml +++ b/lib/models/id/role_id.ml @@ -1,11 +1,11 @@ -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) - +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