Publish docs updates

16 files changed, 69 insertions, 69 deletions

diff --git a/lib/models/id/channel_id.ml b/lib/models/id/channel_id.ml
index 67f81a5..be4bfab 100644
--- a/lib/models/id/channel_id.ml
+++ b/lib/models/id/channel_id.ml
@@ -1,2 +1,2 @@
-include Channel_id_t
+include Channel_id_t

 include Impl.Channel(Channel_id_t)
\ No newline at end of file
diff --git a/lib/models/id/channel_id.mli b/lib/models/id/channel_id.mli
index f352160..59b4d23 100644
--- a/lib/models/id/channel_id.mli
+++ b/lib/models/id/channel_id.mli
@@ -1,3 +1,3 @@
-include module type of Channel_id_t
-include S.ChannelImpl with
+include module type of Channel_id_t

+include S.ChannelImpl with

     type t := Channel_id_t.t
\ No newline at end of file
diff --git a/lib/models/id/channel_id_t.ml b/lib/models/id/channel_id_t.ml
index 26bd984..e49beef 100644
--- a/lib/models/id/channel_id_t.ml
+++ b/lib/models/id/channel_id_t.ml
@@ -1,11 +1,11 @@
-type t = [ `Channel_id of Snowflake.t ] [@@deriving sexp]
-
-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)
-
+type t = [ `Channel_id of Snowflake.t ] [@@deriving sexp]

+

+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
diff --git a/lib/models/id/channel_id_t.mli b/lib/models/id/channel_id_t.mli
index 821c8b0..2e7c76f 100644
--- a/lib/models/id/channel_id_t.mli
+++ b/lib/models/id/channel_id_t.mli
@@ -1,3 +1,3 @@
-type t = [ `Channel_id of Snowflake.t ] [@@deriving sexp, yojson]
-
+type t = [ `Channel_id of Snowflake.t ] [@@deriving sexp, yojson]

+

 val get_id : t -> Snowflake.t
\ No newline at end of file
diff --git a/lib/models/id/guild_id.ml b/lib/models/id/guild_id.ml
index 051006b..79b4323 100644
--- a/lib/models/id/guild_id.ml
+++ b/lib/models/id/guild_id.ml
@@ -1,2 +1,2 @@
-include Guild_id_t
+include Guild_id_t

 include Impl.Guild(Guild_id_t)
\ No newline at end of file
diff --git a/lib/models/id/guild_id.mli b/lib/models/id/guild_id.mli
index 670a903..88e9fa7 100644
--- a/lib/models/id/guild_id.mli
+++ b/lib/models/id/guild_id.mli
@@ -1,3 +1,3 @@
-include module type of Guild_id_t
-include S.GuildImpl with
+include module type of Guild_id_t

+include S.GuildImpl with

     type t := Guild_id_t.t
\ No newline at end of file
diff --git a/lib/models/id/guild_id_t.ml b/lib/models/id/guild_id_t.ml
index d023058..cd8eb58 100644
--- a/lib/models/id/guild_id_t.ml
+++ b/lib/models/id/guild_id_t.ml
@@ -1,11 +1,11 @@
-type t = [ `Guild_id of Snowflake.t ] [@@deriving sexp]
-
-let of_yojson a : (t, string) result =
-    match Snowflake.of_yojson a with
-    | Ok id -> Ok (`Guild_id id)
-    | Error err -> Error err
-
-let of_yojson_exn a : t = `Guild_id (Snowflake.of_yojson_exn a)
-let to_yojson (`Guild_id id) = (Snowflake.to_yojson id)
-
+type t = [ `Guild_id of Snowflake.t ] [@@deriving sexp]

+

+let of_yojson a : (t, string) result =

+    match Snowflake.of_yojson a with

+    | Ok id -> Ok (`Guild_id id)

+    | Error err -> Error err

+

+let of_yojson_exn a : t = `Guild_id (Snowflake.of_yojson_exn a)

+let to_yojson (`Guild_id id) = (Snowflake.to_yojson id)

+

 let get_id (`Guild_id id) = id
\ No newline at end of file
diff --git a/lib/models/id/guild_id_t.mli b/lib/models/id/guild_id_t.mli
index dc72deb..9c92d6c 100644
--- a/lib/models/id/guild_id_t.mli
+++ b/lib/models/id/guild_id_t.mli
@@ -1,3 +1,3 @@
-type t = [ `Guild_id of Snowflake.t ] [@@deriving sexp, yojson]
-
+type t = [ `Guild_id of Snowflake.t ] [@@deriving sexp, yojson]

+

 val get_id : t -> Snowflake.t
\ No newline at end of file
diff --git a/lib/models/id/message_id.ml b/lib/models/id/message_id.ml
index 4a4fbb3..10bcb1d 100644
--- a/lib/models/id/message_id.ml
+++ b/lib/models/id/message_id.ml
@@ -1,11 +1,11 @@
-type t = [ `Message_id of Snowflake.t ] [@@deriving sexp]
-
-let of_yojson a : (t, string) result =
-    match Snowflake.of_yojson a with
-    | Ok id -> Ok (`Message_id id)
-    | Error err -> Error err
-
-let of_yojson_exn a : t = `Message_id (Snowflake.of_yojson_exn a)
-let to_yojson (`Message_id id) = (Snowflake.to_yojson id)
-
+type t = [ `Message_id of Snowflake.t ] [@@deriving sexp]

+

+let of_yojson a : (t, string) result =

+    match Snowflake.of_yojson a with

+    | Ok id -> Ok (`Message_id id)

+    | Error err -> Error err

+

+let of_yojson_exn a : t = `Message_id (Snowflake.of_yojson_exn a)

+let to_yojson (`Message_id id) = (Snowflake.to_yojson id)

+

 let get_id (`Message_id id) = id
\ No newline at end of file
diff --git a/lib/models/id/message_id.mli b/lib/models/id/message_id.mli
index da50f72..90107b5 100644
--- a/lib/models/id/message_id.mli
+++ b/lib/models/id/message_id.mli
@@ -1,3 +1,3 @@
-type t = [ `Message_id of Snowflake.t ] [@@deriving sexp, yojson]
-
+type t = [ `Message_id of Snowflake.t ] [@@deriving sexp, yojson]

+

 val get_id : t -> Snowflake.t
\ No newline at end of file
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
diff --git a/lib/models/id/role_id.mli b/lib/models/id/role_id.mli
index ededf3a..701e4a9 100644
--- a/lib/models/id/role_id.mli
+++ b/lib/models/id/role_id.mli
@@ -1,3 +1,3 @@
-type t = [ `Role_id of Snowflake.t ] [@@deriving sexp, yojson]
-
+type t = [ `Role_id of Snowflake.t ] [@@deriving sexp, yojson]

+

 val get_id : t -> Snowflake.t
\ No newline at end of file
diff --git a/lib/models/id/user_id.ml b/lib/models/id/user_id.ml
index 77ce220..cc71764 100644
--- a/lib/models/id/user_id.ml
+++ b/lib/models/id/user_id.ml
@@ -1,2 +1,2 @@
-include User_id_t
+include User_id_t

 include Impl.User(User_id_t)
\ No newline at end of file
diff --git a/lib/models/id/user_id.mli b/lib/models/id/user_id.mli
index d7da91e..574c4f0 100644
--- a/lib/models/id/user_id.mli
+++ b/lib/models/id/user_id.mli
@@ -1,3 +1,3 @@
-include module type of User_id_t
-include S.UserImpl with
+include module type of User_id_t

+include S.UserImpl with

     type t := User_id_t.t
\ No newline at end of file
diff --git a/lib/models/id/user_id_t.ml b/lib/models/id/user_id_t.ml
index 5ed9f14..f168daa 100644
--- a/lib/models/id/user_id_t.ml
+++ b/lib/models/id/user_id_t.ml
@@ -1,11 +1,11 @@
-type t = [ `User_id of Snowflake.t ] [@@deriving sexp]
-
-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)
-
+type t = [ `User_id of Snowflake.t ] [@@deriving sexp]

+

+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
diff --git a/lib/models/id/user_id_t.mli b/lib/models/id/user_id_t.mli
index 90211ab..0893a34 100644
--- a/lib/models/id/user_id_t.mli
+++ b/lib/models/id/user_id_t.mli
@@ -1,3 +1,3 @@
-type t = [ `User_id of Snowflake.t ] [@@deriving sexp, yojson]
-
+type t = [ `User_id of Snowflake.t ] [@@deriving sexp, yojson]

+

 val get_id : t -> Snowflake.t
\ No newline at end of file