From ae1f5e3513ec731a2c8d57fb44dc9f3f4be60c63 Mon Sep 17 00:00:00 2001 From: Adelyn Breedlove Date: Fri, 18 Jan 2019 11:11:32 -0700 Subject: GitHub needs to named /docs not /doc --- docs/disml/Disml/.dune-keep | 0 docs/disml/Disml/Activity/index.html | 2 + docs/disml/Disml/Attachment/index.html | 2 + docs/disml/Disml/Ban/index.html | 2 + docs/disml/Disml/Ban_t/index.html | 2 + docs/disml/Disml/Channel/index.html | 2 + docs/disml/Disml/Channel_t/index.html | 2 + docs/disml/Disml/Client/index.html | 2 + docs/disml/Disml/Config/index.html | 2 + docs/disml/Disml/Embed/index.html | 2 + docs/disml/Disml/Emoji/index.html | 2 + docs/disml/Disml/Endpoints/index.html | 2 + docs/disml/Disml/Event/index.html | 2 + docs/disml/Disml/Guild/index.html | 2 + docs/disml/Disml/Guild_t/index.html | 2 + docs/disml/Disml/Http/Base/index.html | 2 + docs/disml/Disml/Http/index.html | 2 + docs/disml/Disml/Member/index.html | 2 + docs/disml/Disml/Member_t/index.html | 2 + docs/disml/Disml/Message/index.html | 2 + docs/disml/Disml/Message_t/index.html | 2 + docs/disml/Disml/Opcode/index.html | 2 + docs/disml/Disml/Presence/index.html | 2 + docs/disml/Disml/Reaction/index.html | 2 + docs/disml/Disml/Reaction_t/index.html | 2 + docs/disml/Disml/Rl/RouteMap/Key/index.html | 2 + .../Provide_bin_io/argument-1-Key/index.html | 2 + .../Disml/Rl/RouteMap/Provide_bin_io/index.html | 2 + .../Provide_hash/argument-1-Key/index.html | 2 + .../Disml/Rl/RouteMap/Provide_hash/index.html | 2 + .../Provide_of_sexp/argument-1-Key/index.html | 2 + .../Disml/Rl/RouteMap/Provide_of_sexp/index.html | 2 + .../Tree/Provide_of_sexp/argument-1-K/index.html | 2 + .../Rl/RouteMap/Tree/Provide_of_sexp/index.html | 2 + docs/disml/Disml/Rl/RouteMap/Tree/index.html | 2 + docs/disml/Disml/Rl/RouteMap/index.html | 2 + docs/disml/Disml/Rl/index.html | 2 + docs/disml/Disml/Role/index.html | 2 + docs/disml/Disml/Role_t/index.html | 2 + docs/disml/Disml/Sharder/Shard/index.html | 2 + docs/disml/Disml/Sharder/index.html | 2 + docs/disml/Disml/Snowflake/index.html | 2 + docs/disml/Disml/User/index.html | 2 + docs/disml/Disml/User_t/index.html | 2 + docs/disml/Disml/index.html | 2 + docs/disml/Disml__Activity/.dune-keep | 0 docs/disml/Disml__Activity/index.html | 2 + docs/disml/Disml__Attachment/.dune-keep | 0 docs/disml/Disml__Attachment/index.html | 2 + docs/disml/Disml__Ban/.dune-keep | 0 docs/disml/Disml__Ban/index.html | 2 + docs/disml/Disml__Ban_t/.dune-keep | 0 docs/disml/Disml__Ban_t/index.html | 2 + docs/disml/Disml__Channel/.dune-keep | 0 docs/disml/Disml__Channel/index.html | 2 + docs/disml/Disml__Channel_t/.dune-keep | 0 docs/disml/Disml__Channel_t/index.html | 2 + docs/disml/Disml__Client/.dune-keep | 0 docs/disml/Disml__Client/index.html | 2 + docs/disml/Disml__Config/.dune-keep | 0 docs/disml/Disml__Config/index.html | 2 + docs/disml/Disml__Embed/.dune-keep | 0 docs/disml/Disml__Embed/index.html | 2 + docs/disml/Disml__Emoji/.dune-keep | 0 docs/disml/Disml__Emoji/index.html | 2 + docs/disml/Disml__Endpoints/.dune-keep | 0 docs/disml/Disml__Endpoints/index.html | 2 + docs/disml/Disml__Event/.dune-keep | 0 docs/disml/Disml__Event/index.html | 2 + docs/disml/Disml__Guild/.dune-keep | 0 docs/disml/Disml__Guild/index.html | 2 + docs/disml/Disml__Guild_t/.dune-keep | 0 docs/disml/Disml__Guild_t/index.html | 2 + docs/disml/Disml__Http/.dune-keep | 0 docs/disml/Disml__Http/Base/index.html | 2 + docs/disml/Disml__Http/index.html | 2 + docs/disml/Disml__Member/.dune-keep | 0 docs/disml/Disml__Member/index.html | 2 + docs/disml/Disml__Member_t/.dune-keep | 0 docs/disml/Disml__Member_t/index.html | 2 + docs/disml/Disml__Message/.dune-keep | 0 docs/disml/Disml__Message/index.html | 2 + docs/disml/Disml__Message_t/.dune-keep | 0 docs/disml/Disml__Message_t/index.html | 2 + docs/disml/Disml__Opcode/.dune-keep | 0 docs/disml/Disml__Opcode/index.html | 2 + docs/disml/Disml__Presence/.dune-keep | 0 docs/disml/Disml__Presence/index.html | 2 + docs/disml/Disml__Reaction/.dune-keep | 0 docs/disml/Disml__Reaction/index.html | 2 + docs/disml/Disml__Reaction_t/.dune-keep | 0 docs/disml/Disml__Reaction_t/index.html | 2 + docs/disml/Disml__Rl/.dune-keep | 0 docs/disml/Disml__Rl/RouteMap/Key/index.html | 2 + .../Provide_bin_io/argument-1-Key/index.html | 2 + .../Disml__Rl/RouteMap/Provide_bin_io/index.html | 2 + .../Provide_hash/argument-1-Key/index.html | 2 + .../Disml__Rl/RouteMap/Provide_hash/index.html | 2 + .../Provide_of_sexp/argument-1-Key/index.html | 2 + .../Disml__Rl/RouteMap/Provide_of_sexp/index.html | 2 + .../Tree/Provide_of_sexp/argument-1-K/index.html | 2 + .../RouteMap/Tree/Provide_of_sexp/index.html | 2 + docs/disml/Disml__Rl/RouteMap/Tree/index.html | 2 + docs/disml/Disml__Rl/RouteMap/index.html | 2 + docs/disml/Disml__Rl/index.html | 2 + docs/disml/Disml__Role/.dune-keep | 0 docs/disml/Disml__Role/index.html | 2 + docs/disml/Disml__Role_t/.dune-keep | 0 docs/disml/Disml__Role_t/index.html | 2 + docs/disml/Disml__Sharder/.dune-keep | 0 docs/disml/Disml__Sharder/Shard/index.html | 2 + docs/disml/Disml__Sharder/index.html | 2 + docs/disml/Disml__Snowflake/.dune-keep | 0 docs/disml/Disml__Snowflake/index.html | 2 + docs/disml/Disml__User/.dune-keep | 0 docs/disml/Disml__User/index.html | 2 + docs/disml/Disml__User_t/.dune-keep | 0 docs/disml/Disml__User_t/index.html | 2 + docs/disml/index.html | 2 + docs/highlight.pack.js | 2 + docs/index.html | 19 + docs/odoc.css | 767 +++++++++++++++++++++ 122 files changed, 964 insertions(+) create mode 100644 docs/disml/Disml/.dune-keep create mode 100644 docs/disml/Disml/Activity/index.html create mode 100644 docs/disml/Disml/Attachment/index.html create mode 100644 docs/disml/Disml/Ban/index.html create mode 100644 docs/disml/Disml/Ban_t/index.html create mode 100644 docs/disml/Disml/Channel/index.html create mode 100644 docs/disml/Disml/Channel_t/index.html create mode 100644 docs/disml/Disml/Client/index.html create mode 100644 docs/disml/Disml/Config/index.html create mode 100644 docs/disml/Disml/Embed/index.html create mode 100644 docs/disml/Disml/Emoji/index.html create mode 100644 docs/disml/Disml/Endpoints/index.html create mode 100644 docs/disml/Disml/Event/index.html create mode 100644 docs/disml/Disml/Guild/index.html create mode 100644 docs/disml/Disml/Guild_t/index.html create mode 100644 docs/disml/Disml/Http/Base/index.html create mode 100644 docs/disml/Disml/Http/index.html create mode 100644 docs/disml/Disml/Member/index.html create mode 100644 docs/disml/Disml/Member_t/index.html create mode 100644 docs/disml/Disml/Message/index.html create mode 100644 docs/disml/Disml/Message_t/index.html create mode 100644 docs/disml/Disml/Opcode/index.html create mode 100644 docs/disml/Disml/Presence/index.html create mode 100644 docs/disml/Disml/Reaction/index.html create mode 100644 docs/disml/Disml/Reaction_t/index.html create mode 100644 docs/disml/Disml/Rl/RouteMap/Key/index.html create mode 100644 docs/disml/Disml/Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html create mode 100644 docs/disml/Disml/Rl/RouteMap/Provide_bin_io/index.html create mode 100644 docs/disml/Disml/Rl/RouteMap/Provide_hash/argument-1-Key/index.html create mode 100644 docs/disml/Disml/Rl/RouteMap/Provide_hash/index.html create mode 100644 docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html create mode 100644 docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/index.html create mode 100644 docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html create mode 100644 docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/index.html create mode 100644 docs/disml/Disml/Rl/RouteMap/Tree/index.html create mode 100644 docs/disml/Disml/Rl/RouteMap/index.html create mode 100644 docs/disml/Disml/Rl/index.html create mode 100644 docs/disml/Disml/Role/index.html create mode 100644 docs/disml/Disml/Role_t/index.html create mode 100644 docs/disml/Disml/Sharder/Shard/index.html create mode 100644 docs/disml/Disml/Sharder/index.html create mode 100644 docs/disml/Disml/Snowflake/index.html create mode 100644 docs/disml/Disml/User/index.html create mode 100644 docs/disml/Disml/User_t/index.html create mode 100644 docs/disml/Disml/index.html create mode 100644 docs/disml/Disml__Activity/.dune-keep create mode 100644 docs/disml/Disml__Activity/index.html create mode 100644 docs/disml/Disml__Attachment/.dune-keep create mode 100644 docs/disml/Disml__Attachment/index.html create mode 100644 docs/disml/Disml__Ban/.dune-keep create mode 100644 docs/disml/Disml__Ban/index.html create mode 100644 docs/disml/Disml__Ban_t/.dune-keep create mode 100644 docs/disml/Disml__Ban_t/index.html create mode 100644 docs/disml/Disml__Channel/.dune-keep create mode 100644 docs/disml/Disml__Channel/index.html create mode 100644 docs/disml/Disml__Channel_t/.dune-keep create mode 100644 docs/disml/Disml__Channel_t/index.html create mode 100644 docs/disml/Disml__Client/.dune-keep create mode 100644 docs/disml/Disml__Client/index.html create mode 100644 docs/disml/Disml__Config/.dune-keep create mode 100644 docs/disml/Disml__Config/index.html create mode 100644 docs/disml/Disml__Embed/.dune-keep create mode 100644 docs/disml/Disml__Embed/index.html create mode 100644 docs/disml/Disml__Emoji/.dune-keep create mode 100644 docs/disml/Disml__Emoji/index.html create mode 100644 docs/disml/Disml__Endpoints/.dune-keep create mode 100644 docs/disml/Disml__Endpoints/index.html create mode 100644 docs/disml/Disml__Event/.dune-keep create mode 100644 docs/disml/Disml__Event/index.html create mode 100644 docs/disml/Disml__Guild/.dune-keep create mode 100644 docs/disml/Disml__Guild/index.html create mode 100644 docs/disml/Disml__Guild_t/.dune-keep create mode 100644 docs/disml/Disml__Guild_t/index.html create mode 100644 docs/disml/Disml__Http/.dune-keep create mode 100644 docs/disml/Disml__Http/Base/index.html create mode 100644 docs/disml/Disml__Http/index.html create mode 100644 docs/disml/Disml__Member/.dune-keep create mode 100644 docs/disml/Disml__Member/index.html create mode 100644 docs/disml/Disml__Member_t/.dune-keep create mode 100644 docs/disml/Disml__Member_t/index.html create mode 100644 docs/disml/Disml__Message/.dune-keep create mode 100644 docs/disml/Disml__Message/index.html create mode 100644 docs/disml/Disml__Message_t/.dune-keep create mode 100644 docs/disml/Disml__Message_t/index.html create mode 100644 docs/disml/Disml__Opcode/.dune-keep create mode 100644 docs/disml/Disml__Opcode/index.html create mode 100644 docs/disml/Disml__Presence/.dune-keep create mode 100644 docs/disml/Disml__Presence/index.html create mode 100644 docs/disml/Disml__Reaction/.dune-keep create mode 100644 docs/disml/Disml__Reaction/index.html create mode 100644 docs/disml/Disml__Reaction_t/.dune-keep create mode 100644 docs/disml/Disml__Reaction_t/index.html create mode 100644 docs/disml/Disml__Rl/.dune-keep create mode 100644 docs/disml/Disml__Rl/RouteMap/Key/index.html create mode 100644 docs/disml/Disml__Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html create mode 100644 docs/disml/Disml__Rl/RouteMap/Provide_bin_io/index.html create mode 100644 docs/disml/Disml__Rl/RouteMap/Provide_hash/argument-1-Key/index.html create mode 100644 docs/disml/Disml__Rl/RouteMap/Provide_hash/index.html create mode 100644 docs/disml/Disml__Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html create mode 100644 docs/disml/Disml__Rl/RouteMap/Provide_of_sexp/index.html create mode 100644 docs/disml/Disml__Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html create mode 100644 docs/disml/Disml__Rl/RouteMap/Tree/Provide_of_sexp/index.html create mode 100644 docs/disml/Disml__Rl/RouteMap/Tree/index.html create mode 100644 docs/disml/Disml__Rl/RouteMap/index.html create mode 100644 docs/disml/Disml__Rl/index.html create mode 100644 docs/disml/Disml__Role/.dune-keep create mode 100644 docs/disml/Disml__Role/index.html create mode 100644 docs/disml/Disml__Role_t/.dune-keep create mode 100644 docs/disml/Disml__Role_t/index.html create mode 100644 docs/disml/Disml__Sharder/.dune-keep create mode 100644 docs/disml/Disml__Sharder/Shard/index.html create mode 100644 docs/disml/Disml__Sharder/index.html create mode 100644 docs/disml/Disml__Snowflake/.dune-keep create mode 100644 docs/disml/Disml__Snowflake/index.html create mode 100644 docs/disml/Disml__User/.dune-keep create mode 100644 docs/disml/Disml__User/index.html create mode 100644 docs/disml/Disml__User_t/.dune-keep create mode 100644 docs/disml/Disml__User_t/index.html create mode 100644 docs/disml/index.html create mode 100644 docs/highlight.pack.js create mode 100644 docs/index.html create mode 100644 docs/odoc.css (limited to 'docs') diff --git a/docs/disml/Disml/.dune-keep b/docs/disml/Disml/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml/Activity/index.html b/docs/disml/Disml/Activity/index.html new file mode 100644 index 0000000..62e019f --- /dev/null +++ b/docs/disml/Disml/Activity/index.html @@ -0,0 +1,2 @@ + +Activity (disml.Disml.Activity)

Module Disml.Activity

type t = {
name : string;
kind : int;
url : string;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Attachment/index.html b/docs/disml/Disml/Attachment/index.html new file mode 100644 index 0000000..10671ce --- /dev/null +++ b/docs/disml/Disml/Attachment/index.html @@ -0,0 +1,2 @@ + +Attachment (disml.Disml.Attachment)

Module Disml.Attachment

type t = {
id : Snowflake.t;
filename : string;
size : int;
url : string;
proxy_url : string;
height : int;
width : int;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Ban/index.html b/docs/disml/Disml/Ban/index.html new file mode 100644 index 0000000..87cd017 --- /dev/null +++ b/docs/disml/Disml/Ban/index.html @@ -0,0 +1,2 @@ + +Ban (disml.Disml.Ban)

Module Disml.Ban

include module type of Ban_t
type t = {
reason : string;
user : User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Ban_t/index.html b/docs/disml/Disml/Ban_t/index.html new file mode 100644 index 0000000..0a5319b --- /dev/null +++ b/docs/disml/Disml/Ban_t/index.html @@ -0,0 +1,2 @@ + +Ban_t (disml.Disml.Ban_t)

Module Disml.Ban_t

type t = {
reason : string;
user : User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Channel/index.html b/docs/disml/Disml/Channel/index.html new file mode 100644 index 0000000..188a973 --- /dev/null +++ b/docs/disml/Disml/Channel/index.html @@ -0,0 +1,2 @@ + +Channel (disml.Disml.Channel)

Module Disml.Channel

include module type of Channel_t
exception Invalid_channel of Yojson.Safe.json
type group = {
id : Snowflake.t;
last_message_id : Snowflake.t option;
last_pin_timestamp : string option;
icon : string option;
name : string option;
owner_id : Snowflake.t;
recipients : User_t.t list;
}
val group_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> group
val sexp_of_group : group -> Ppx_sexp_conv_lib.Sexp.t
val group_to_yojson : group -> Yojson.Safe.json
val group_of_yojson : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val _ : group -> Yojson.Safe.json
val _ : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val group_of_yojson_exn : Yojson.Safe.json -> group
val _ : Yojson.Safe.json -> group
type dm = {
id : Snowflake.t;
last_message_id : Snowflake.t option;
last_pin_timestamp : string option;
}
val dm_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> dm
val sexp_of_dm : dm -> Ppx_sexp_conv_lib.Sexp.t
val dm_to_yojson : dm -> Yojson.Safe.json
val dm_of_yojson : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val _ : dm -> Yojson.Safe.json
val _ : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val dm_of_yojson_exn : Yojson.Safe.json -> dm
val _ : Yojson.Safe.json -> dm
type guild_text = {
id : Snowflake.t;
last_message_id : Snowflake.t option;
last_pin_timestamp : string option;
category_id : Snowflake.t option;
guild_id : Snowflake.t option;
name : string;
position : int;
topic : string option;
nsfw : bool;
slow_mode_timeout : int option;
}
val guild_text_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_text
val sexp_of_guild_text : guild_text -> Ppx_sexp_conv_lib.Sexp.t
val guild_text_to_yojson : guild_text -> Yojson.Safe.json
val guild_text_of_yojson : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val _ : guild_text -> Yojson.Safe.json
val _ : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val guild_text_of_yojson_exn : Yojson.Safe.json -> guild_text
val _ : Yojson.Safe.json -> guild_text
type guild_voice = {
id : Snowflake.t;
category_id : Snowflake.t option;
guild_id : Snowflake.t option;
name : string;
position : int;
user_limit : int;
bitrate : int option;
}
val guild_voice_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_voice
val sexp_of_guild_voice : guild_voice -> Ppx_sexp_conv_lib.Sexp.t
val guild_voice_to_yojson : guild_voice -> Yojson.Safe.json
val guild_voice_of_yojson : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val _ : guild_voice -> Yojson.Safe.json
val _ : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val guild_voice_of_yojson_exn : Yojson.Safe.json -> guild_voice
val _ : Yojson.Safe.json -> guild_voice
type category = {
id : Snowflake.t;
guild_id : Snowflake.t option;
position : int;
name : string;
}
val category_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> category
val sexp_of_category : category -> Ppx_sexp_conv_lib.Sexp.t
val category_to_yojson : category -> Yojson.Safe.json
val category_of_yojson : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val _ : category -> Yojson.Safe.json
val _ : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val category_of_yojson_exn : Yojson.Safe.json -> category
val _ : Yojson.Safe.json -> category
type t =
| Group of group
| Private of dm
| GuildText of guild_text
| GuildVoice of guild_voice
| Category of category
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
type channel_wrapper = {
id : Snowflake.t;
kind : int;
guild_id : Snowflake.t option;
position : int option;
name : string option;
topic : string option;
nsfw : bool option;
last_message_id : Snowflake.t option;
bitrate : int option;
user_limit : int option;
slow_mode_timeout : int option;
recipients : User_t.t list option;
icon : string option;
owner_id : Snowflake.t option;
application_id : Snowflake.t option;
category_id : Snowflake.t option;
last_pin_timestamp : string option;
}
val channel_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> channel_wrapper
val sexp_of_channel_wrapper : channel_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val channel_wrapper_to_yojson : channel_wrapper -> Yojson.Safe.json
val channel_wrapper_of_yojson : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val _ : channel_wrapper -> Yojson.Safe.json
val _ : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val channel_wrapper_of_yojson_exn : Yojson.Safe.json -> channel_wrapper
val _ : Yojson.Safe.json -> channel_wrapper
val unwrap_as_guild_text : channel_wrapper -> guild_text
val unwrap_as_guild_voice : channel_wrapper -> guild_voice
val unwrap_as_dm : channel_wrapper -> dm
val unwrap_as_group : channel_wrapper -> group
val unwrap_as_category : channel_wrapper -> category
val wrap : channel_wrapper -> t
val get_id : t -> Snowflake.t
val say : content:string -> t -> Message_t.t Async.Deferred.Or_error.t
val send_message : ?⁠embed:Yojson.Safe.json -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Message_t.t Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val get_message : id:Snowflake.t -> t -> Message_t.t Async.Deferred.Or_error.t
val get_messages : ?⁠mode:[ `Before | `After | `Around ] -> ?⁠id:Snowflake.t -> ?⁠limit:int -> t -> Message_t.t list Async.Deferred.Or_error.t
val broadcast_typing : t -> unit Async.Deferred.Or_error.t
val get_pins : t -> Message_t.t list Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml/Channel_t/index.html b/docs/disml/Disml/Channel_t/index.html new file mode 100644 index 0000000..a928536 --- /dev/null +++ b/docs/disml/Disml/Channel_t/index.html @@ -0,0 +1,2 @@ + +Channel_t (disml.Disml.Channel_t)

Module Disml.Channel_t

exception Invalid_channel of Yojson.Safe.json
type group = {
id : Snowflake.t;
last_message_id : Snowflake.t option;
last_pin_timestamp : string option;
icon : string option;
name : string option;
owner_id : Snowflake.t;
recipients : User_t.t list;
}
val group_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> group
val sexp_of_group : group -> Ppx_sexp_conv_lib.Sexp.t
val group_to_yojson : group -> Yojson.Safe.json
val group_of_yojson : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val _ : group -> Yojson.Safe.json
val _ : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val group_of_yojson_exn : Yojson.Safe.json -> group
val _ : Yojson.Safe.json -> group
type dm = {
id : Snowflake.t;
last_message_id : Snowflake.t option;
last_pin_timestamp : string option;
}
val dm_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> dm
val sexp_of_dm : dm -> Ppx_sexp_conv_lib.Sexp.t
val dm_to_yojson : dm -> Yojson.Safe.json
val dm_of_yojson : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val _ : dm -> Yojson.Safe.json
val _ : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val dm_of_yojson_exn : Yojson.Safe.json -> dm
val _ : Yojson.Safe.json -> dm
type guild_text = {
id : Snowflake.t;
last_message_id : Snowflake.t option;
last_pin_timestamp : string option;
category_id : Snowflake.t option;
guild_id : Snowflake.t option;
name : string;
position : int;
topic : string option;
nsfw : bool;
slow_mode_timeout : int option;
}
val guild_text_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_text
val sexp_of_guild_text : guild_text -> Ppx_sexp_conv_lib.Sexp.t
val guild_text_to_yojson : guild_text -> Yojson.Safe.json
val guild_text_of_yojson : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val _ : guild_text -> Yojson.Safe.json
val _ : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val guild_text_of_yojson_exn : Yojson.Safe.json -> guild_text
val _ : Yojson.Safe.json -> guild_text
type guild_voice = {
id : Snowflake.t;
category_id : Snowflake.t option;
guild_id : Snowflake.t option;
name : string;
position : int;
user_limit : int;
bitrate : int option;
}
val guild_voice_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_voice
val sexp_of_guild_voice : guild_voice -> Ppx_sexp_conv_lib.Sexp.t
val guild_voice_to_yojson : guild_voice -> Yojson.Safe.json
val guild_voice_of_yojson : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val _ : guild_voice -> Yojson.Safe.json
val _ : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val guild_voice_of_yojson_exn : Yojson.Safe.json -> guild_voice
val _ : Yojson.Safe.json -> guild_voice
type category = {
id : Snowflake.t;
guild_id : Snowflake.t option;
position : int;
name : string;
}
val category_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> category
val sexp_of_category : category -> Ppx_sexp_conv_lib.Sexp.t
val category_to_yojson : category -> Yojson.Safe.json
val category_of_yojson : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val _ : category -> Yojson.Safe.json
val _ : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val category_of_yojson_exn : Yojson.Safe.json -> category
val _ : Yojson.Safe.json -> category
type t =
| Group of group
| Private of dm
| GuildText of guild_text
| GuildVoice of guild_voice
| Category of category
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
type channel_wrapper = {
id : Snowflake.t;
kind : int;
guild_id : Snowflake.t option;
position : int option;
name : string option;
topic : string option;
nsfw : bool option;
last_message_id : Snowflake.t option;
bitrate : int option;
user_limit : int option;
slow_mode_timeout : int option;
recipients : User_t.t list option;
icon : string option;
owner_id : Snowflake.t option;
application_id : Snowflake.t option;
category_id : Snowflake.t option;
last_pin_timestamp : string option;
}
val channel_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> channel_wrapper
val sexp_of_channel_wrapper : channel_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val channel_wrapper_to_yojson : channel_wrapper -> Yojson.Safe.json
val channel_wrapper_of_yojson : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val _ : channel_wrapper -> Yojson.Safe.json
val _ : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val channel_wrapper_of_yojson_exn : Yojson.Safe.json -> channel_wrapper
val _ : Yojson.Safe.json -> channel_wrapper
val unwrap_as_guild_text : channel_wrapper -> guild_text
val unwrap_as_guild_voice : channel_wrapper -> guild_voice
val unwrap_as_dm : channel_wrapper -> dm
val unwrap_as_group : channel_wrapper -> group
val unwrap_as_category : channel_wrapper -> category
val wrap : channel_wrapper -> t
val get_id : t -> Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml/Client/index.html b/docs/disml/Disml/Client/index.html new file mode 100644 index 0000000..fdbcc87 --- /dev/null +++ b/docs/disml/Disml/Client/index.html @@ -0,0 +1,2 @@ + +Client (disml.Disml.Client)

Module Disml.Client

include Config
val token : string Stdlib.ref
val hello : (Yojson.Safe.json -> unit) Stdlib.ref
val ready : (Yojson.Safe.json -> unit) Stdlib.ref
val resumed : (Yojson.Safe.json -> unit) Stdlib.ref
val invalid_session : (Yojson.Safe.json -> unit) Stdlib.ref
val channel_create : (Channel_t.t -> unit) Stdlib.ref
val channel_update : (Channel_t.t -> unit) Stdlib.ref
val channel_delete : (Channel_t.t -> unit) Stdlib.ref
val channel_pins_update : (Yojson.Safe.json -> unit) Stdlib.ref
val guild_create : (Guild_t.t -> unit) Stdlib.ref
val guild_update : (Guild_t.t -> unit) Stdlib.ref
val guild_delete : (Guild_t.t -> unit) Stdlib.ref
val member_ban : (Ban_t.t -> unit) Stdlib.ref
val member_unban : (Ban_t.t -> unit) Stdlib.ref
val guild_emojis_update : (Yojson.Safe.json -> unit) Stdlib.ref
val integrations_update : (Yojson.Safe.json -> unit) Stdlib.ref
val member_join : (Member_t.t -> unit) Stdlib.ref
val member_leave : (Member_t.member_wrapper -> unit) Stdlib.ref
val member_update : (Member_t.member_update -> unit) Stdlib.ref
val members_chunk : (Member_t.t list -> unit) Stdlib.ref
val role_create : (Role_t.t -> unit) Stdlib.ref
val role_update : (Role_t.t -> unit) Stdlib.ref
val role_delete : (Role_t.t -> unit) Stdlib.ref
val message_create : (Message_t.t -> unit) Stdlib.ref
val message_update : (Message_t.message_update -> unit) Stdlib.ref
val message_delete : (Snowflake.t -> Snowflake.t -> unit) Stdlib.ref
val message_bulk_delete : (Snowflake.t list -> unit) Stdlib.ref
val reaction_add : (Reaction_t.reaction_event -> unit) Stdlib.ref
val reaction_remove : (Reaction_t.reaction_event -> unit) Stdlib.ref
val reaction_bulk_remove : (Reaction_t.t list -> unit) Stdlib.ref
val presence_update : (Presence.t -> unit) Stdlib.ref
val typing_start : (Yojson.Safe.json -> unit) Stdlib.ref
val user_update : (Yojson.Safe.json -> unit) Stdlib.ref
val voice_state_update : (Yojson.Safe.json -> unit) Stdlib.ref
val voice_server_update : (Yojson.Safe.json -> unit) Stdlib.ref
val webhooks_update : (Yojson.Safe.json -> unit) Stdlib.ref
type t = {
sharder : Sharder.t;
token : string;
}
val start : ?⁠count:int -> string -> t Async_kernel__Deferred.t
val set_status : status:Yojson.Safe.json -> t -> Sharder.Shard.shard list Async.Deferred.t
val set_status_with : f:(Sharder.Shard.shard -> Yojson.Safe.json) -> t -> Sharder.Shard.shard list Async.Deferred.t
val request_guild_members : guild:Snowflake.t -> ?⁠query:string -> ?⁠limit:int -> t -> Sharder.Shard.shard list Async.Deferred.t
\ No newline at end of file diff --git a/docs/disml/Disml/Config/index.html b/docs/disml/Disml/Config/index.html new file mode 100644 index 0000000..c52a9b6 --- /dev/null +++ b/docs/disml/Disml/Config/index.html @@ -0,0 +1,2 @@ + +Config (disml.Disml.Config)

Module Disml.Config

val token : string Stdlib.ref
val hello : (Yojson.Safe.json -> unit) Stdlib.ref
val ready : (Yojson.Safe.json -> unit) Stdlib.ref
val resumed : (Yojson.Safe.json -> unit) Stdlib.ref
val invalid_session : (Yojson.Safe.json -> unit) Stdlib.ref
val channel_create : (Channel_t.t -> unit) Stdlib.ref
val channel_update : (Channel_t.t -> unit) Stdlib.ref
val channel_delete : (Channel_t.t -> unit) Stdlib.ref
val channel_pins_update : (Yojson.Safe.json -> unit) Stdlib.ref
val guild_create : (Guild_t.t -> unit) Stdlib.ref
val guild_update : (Guild_t.t -> unit) Stdlib.ref
val guild_delete : (Guild_t.t -> unit) Stdlib.ref
val member_ban : (Ban_t.t -> unit) Stdlib.ref
val member_unban : (Ban_t.t -> unit) Stdlib.ref
val guild_emojis_update : (Yojson.Safe.json -> unit) Stdlib.ref
val integrations_update : (Yojson.Safe.json -> unit) Stdlib.ref
val member_join : (Member_t.t -> unit) Stdlib.ref
val member_leave : (Member_t.member_wrapper -> unit) Stdlib.ref
val member_update : (Member_t.member_update -> unit) Stdlib.ref
val members_chunk : (Member_t.t list -> unit) Stdlib.ref
val role_create : (Role_t.t -> unit) Stdlib.ref
val role_update : (Role_t.t -> unit) Stdlib.ref
val role_delete : (Role_t.t -> unit) Stdlib.ref
val message_create : (Message_t.t -> unit) Stdlib.ref
val message_update : (Message_t.message_update -> unit) Stdlib.ref
val message_delete : (Snowflake.t -> Snowflake.t -> unit) Stdlib.ref
val message_bulk_delete : (Snowflake.t list -> unit) Stdlib.ref
val reaction_add : (Reaction_t.reaction_event -> unit) Stdlib.ref
val reaction_remove : (Reaction_t.reaction_event -> unit) Stdlib.ref
val reaction_bulk_remove : (Reaction_t.t list -> unit) Stdlib.ref
val presence_update : (Presence.t -> unit) Stdlib.ref
val typing_start : (Yojson.Safe.json -> unit) Stdlib.ref
val user_update : (Yojson.Safe.json -> unit) Stdlib.ref
val voice_state_update : (Yojson.Safe.json -> unit) Stdlib.ref
val voice_server_update : (Yojson.Safe.json -> unit) Stdlib.ref
val webhooks_update : (Yojson.Safe.json -> unit) Stdlib.ref
\ No newline at end of file diff --git a/docs/disml/Disml/Embed/index.html b/docs/disml/Disml/Embed/index.html new file mode 100644 index 0000000..7c952a3 --- /dev/null +++ b/docs/disml/Disml/Embed/index.html @@ -0,0 +1,2 @@ + +Embed (disml.Disml.Embed)

Module Disml.Embed

val _ : footer -> Yojson.Safe.json
val _ : Yojson.Safe.json -> footer Ppx_deriving_yojson_runtime.error_or
val _ : Yojson.Safe.json -> footer
type image = {
url : string option;
proxy_url : string option;
height : int option;
width : int option;
}
val image_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> image
val sexp_of_image : image -> Ppx_sexp_conv_lib.Sexp.t
val image_to_yojson : image -> Yojson.Safe.json
val image_of_yojson : Yojson.Safe.json -> image Ppx_deriving_yojson_runtime.error_or
val _ : image -> Yojson.Safe.json
val _ : Yojson.Safe.json -> image Ppx_deriving_yojson_runtime.error_or
val image_of_yojson_exn : Yojson.Safe.json -> image
val _ : Yojson.Safe.json -> image
type video = {
url : string option;
height : int option;
width : int option;
}
val video_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> video
val sexp_of_video : video -> Ppx_sexp_conv_lib.Sexp.t
val video_to_yojson : video -> Yojson.Safe.json
val video_of_yojson : Yojson.Safe.json -> video Ppx_deriving_yojson_runtime.error_or
val _ : video -> Yojson.Safe.json
val _ : Yojson.Safe.json -> video Ppx_deriving_yojson_runtime.error_or
val video_of_yojson_exn : Yojson.Safe.json -> video
val _ : Yojson.Safe.json -> video
type provider = {
name : string option;
url : string option;
}
val provider_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> provider
val sexp_of_provider : provider -> Ppx_sexp_conv_lib.Sexp.t
val provider_to_yojson : provider -> Yojson.Safe.json
val provider_of_yojson : Yojson.Safe.json -> provider Ppx_deriving_yojson_runtime.error_or
val _ : provider -> Yojson.Safe.json
val _ : Yojson.Safe.json -> provider Ppx_deriving_yojson_runtime.error_or
val provider_of_yojson_exn : Yojson.Safe.json -> provider
val _ : Yojson.Safe.json -> provider
type author = {
name : string option;
url : string option;
icon_url : string option;
proxy_icon_url : string option;
}
val author_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> author
val sexp_of_author : author -> Ppx_sexp_conv_lib.Sexp.t
val author_to_yojson : author -> Yojson.Safe.json
val author_of_yojson : Yojson.Safe.json -> author Ppx_deriving_yojson_runtime.error_or
val _ : author -> Yojson.Safe.json
val _ : Yojson.Safe.json -> author Ppx_deriving_yojson_runtime.error_or
val author_of_yojson_exn : Yojson.Safe.json -> author
val _ : Yojson.Safe.json -> author
type field = {
name : string;
value : string;
inline : bool;
}
val field_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> field
val sexp_of_field : field -> Ppx_sexp_conv_lib.Sexp.t
val field_to_yojson : field -> Yojson.Safe.json
val field_of_yojson : Yojson.Safe.json -> field Ppx_deriving_yojson_runtime.error_or
val _ : field -> Yojson.Safe.json
val _ : Yojson.Safe.json -> field Ppx_deriving_yojson_runtime.error_or
val field_of_yojson_exn : Yojson.Safe.json -> field
val _ : Yojson.Safe.json -> field
type t = {
title : string option;
kind : string option;
description : string option;
url : string option;
timestamp : string option;
colour : int option;
footer : footer option;
image : image option;
thumbnail : image option;
video : video option;
provider : provider option;
author : author option;
fields : field list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Emoji/index.html b/docs/disml/Disml/Emoji/index.html new file mode 100644 index 0000000..e2196d7 --- /dev/null +++ b/docs/disml/Disml/Emoji/index.html @@ -0,0 +1,2 @@ + +Emoji (disml.Disml.Emoji)

Module Disml.Emoji

type partial_emoji = {
id : Snowflake.t option;
name : string;
}
val partial_emoji_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_emoji
val sexp_of_partial_emoji : partial_emoji -> Ppx_sexp_conv_lib.Sexp.t
val partial_emoji_to_yojson : partial_emoji -> Yojson.Safe.json
val partial_emoji_of_yojson : Yojson.Safe.json -> partial_emoji Ppx_deriving_yojson_runtime.error_or
val _ : partial_emoji -> Yojson.Safe.json
val _ : Yojson.Safe.json -> partial_emoji Ppx_deriving_yojson_runtime.error_or
val partial_emoji_of_yojson_exn : Yojson.Safe.json -> partial_emoji
val _ : Yojson.Safe.json -> partial_emoji
type t = {
id : Snowflake.t option;
name : string;
roles : Snowflake.t list;
user : User_t.t option;
require_colons : bool option;
managed : bool option;
animated : bool option;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Endpoints/index.html b/docs/disml/Disml/Endpoints/index.html new file mode 100644 index 0000000..c2fff18 --- /dev/null +++ b/docs/disml/Disml/Endpoints/index.html @@ -0,0 +1,2 @@ + +Endpoints (disml.Disml.Endpoints)

Module Disml.Endpoints

val gateway : string
val gateway_bot : string
val channel : int -> string
val channel_messages : int -> string
val channel_message : int -> int -> string
val channel_reaction_me : int -> int -> string -> string
val channel_reaction : int -> int -> string -> int -> string
val channel_reactions_get : int -> int -> string -> string
val channel_reactions_delete : int -> int -> string
val channel_bulk_delete : int -> string
val channel_permission : int -> int -> string
val channel_permissions : int -> string
val channels : string
val channel_call_ring : int -> string
val channel_invites : int -> string
val channel_typing : int -> string
val channel_pins : int -> string
val channel_pin : int -> int -> string
val guilds : string
val guild : int -> string
val guild_channels : int -> string
val guild_members : int -> string
val guild_member : int -> int -> string
val guild_member_role : int -> int -> int -> string
val guild_bans : int -> string
val guild_ban : int -> int -> string
val guild_roles : int -> string
val guild_role : int -> int -> string
val guild_prune : int -> string
val guild_voice_regions : int -> string
val guild_invites : int -> string
val guild_integrations : int -> string
val guild_integration : int -> int -> string
val guild_integration_sync : int -> int -> string
val guild_embed : int -> string
val guild_emojis : int -> string
val guild_emoji : int -> int -> string
val webhooks_guild : int -> string
val webhooks_channel : int -> string
val webhook : int -> string
val webhook_token : int -> string -> string
val webhook_git : int -> string -> string
val webhook_slack : int -> string -> string
val user : int -> string
val me : string
val me_guilds : string
val me_guild : int -> string
val me_channels : string
val me_connections : string
val invite : string -> string
val regions : string
val application_information : string
val group_recipient : int -> int -> string
val guild_me_nick : int -> string
val guild_vanity_url : int -> string
val guild_audit_logs : int -> string
val cdn_embed_avatar : string -> string
val cdn_emoji : string -> string -> string
val cdn_icon : int -> string -> string -> string
val cdn_avatar : int -> string -> string -> string
val cdn_default_avatar : int -> string
\ No newline at end of file diff --git a/docs/disml/Disml/Event/index.html b/docs/disml/Disml/Event/index.html new file mode 100644 index 0000000..f3917da --- /dev/null +++ b/docs/disml/Disml/Event/index.html @@ -0,0 +1,2 @@ + +Event (disml.Disml.Event)

Module Disml.Event

exception Invalid_event of string
type t =
| HELLO of Yojson.Safe.json
| READY of Yojson.Safe.json
| RESUMED of Yojson.Safe.json
| INVALID_SESSION of Yojson.Safe.json
| CHANNEL_CREATE of Channel_t.t
| CHANNEL_UPDATE of Channel_t.t
| CHANNEL_DELETE of Channel_t.t
| CHANNEL_PINS_UPDATE of Yojson.Safe.json
| GUILD_CREATE of Guild_t.t
| GUILD_UPDATE of Guild_t.t
| GUILD_DELETE of Guild_t.t
| GUILD_BAN_ADD of Ban_t.t
| GUILD_BAN_REMOVE of Ban_t.t
| GUILD_EMOJIS_UPDATE of Yojson.Safe.json
| GUILD_INTEGRATIONS_UPDATE of Yojson.Safe.json
| GUILD_MEMBER_ADD of Member_t.t
| GUILD_MEMBER_REMOVE of Member_t.member_wrapper
| GUILD_MEMBER_UPDATE of Member_t.member_update
| GUILD_MEMBERS_CHUNK of Member_t.t list
| GUILD_ROLE_CREATE of Role_t.t
| GUILD_ROLE_UPDATE of Role_t.t
| GUILD_ROLE_DELETE of Role_t.t
| MESSAGE_CREATE of Message_t.t
| MESSAGE_UPDATE of Message_t.message_update
| MESSAGE_DELETE of Snowflake.t * Snowflake.t
| MESSAGE_BULK_DELETE of Snowflake.t list
| MESSAGE_REACTION_ADD of Reaction_t.reaction_event
| MESSAGE_REACTION_REMOVE of Reaction_t.reaction_event
| MESSAGE_REACTION_REMOVE_ALL of Reaction_t.t list
| PRESENCE_UPDATE of Presence.t
| TYPING_START of Yojson.Safe.json
| USER_UPDATE of Yojson.Safe.json
| VOICE_STATE_UPDATE of Yojson.Safe.json
| VOICE_SERVER_UPDATE of Yojson.Safe.json
| WEBHOOKS_UPDATE of Yojson.Safe.json
val event_of_yojson : contents:Yojson.Safe.json -> string -> t
val dispatch : t -> unit
val handle_event : ev:string -> Yojson.Safe.json -> unit
\ No newline at end of file diff --git a/docs/disml/Disml/Guild/index.html b/docs/disml/Disml/Guild/index.html new file mode 100644 index 0000000..5bbefc8 --- /dev/null +++ b/docs/disml/Disml/Guild/index.html @@ -0,0 +1,2 @@ + +Guild (disml.Disml.Guild)

Module Disml.Guild

include module type of Guild_t
type pre = {
id : Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Snowflake.t;
region : string;
afk_channel_id : Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Role_t.role list;
emojis : Emoji.t list;
features : string list;
mfa_level : int;
application_id : Snowflake.t option;
widget_enabled : bool option;
widget_channel : Channel_t.channel_wrapper option;
system_channel : Channel_t.channel_wrapper option;
large : bool;
unavailable : bool;
member_count : int option;
members : Member_t.member list;
channels : Channel_t.channel_wrapper list;
}
val pre_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> pre
val sexp_of_pre : pre -> Ppx_sexp_conv_lib.Sexp.t
val pre_to_yojson : pre -> Yojson.Safe.json
val pre_of_yojson : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val _ : pre -> Yojson.Safe.json
val _ : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val pre_of_yojson_exn : Yojson.Safe.json -> pre
val _ : Yojson.Safe.json -> pre
type t = {
id : Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Snowflake.t;
region : string;
afk_channel_id : Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Role_t.t list;
emojis : Emoji.t list;
features : string list;
mfa_level : int;
application_id : Snowflake.t option;
widget_enabled : bool option;
widget_channel : Channel_t.t option;
system_channel : Channel_t.t option;
large : bool;
unavailable : bool;
member_count : int option;
members : Member_t.t list;
channels : Channel_t.t list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val wrap : pre -> t
val ban_user : id:Snowflake.t -> ?⁠reason:string -> ?⁠days:int -> t -> unit Async.Deferred.Or_error.t
val create_emoji : name:string -> image:string -> t -> Emoji.t Async.Deferred.Or_error.t
val create_role : name:string -> ?⁠colour:int -> ?⁠permissions:int -> ?⁠hoist:bool -> ?⁠mentionable:bool -> t -> Role_t.t Async.Deferred.Or_error.t
val create_channel : mode:[ `Text | `Voice | `Category ] -> name:string -> t -> Channel_t.t Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val get_ban : id:Snowflake.t -> t -> Ban_t.t Async.Deferred.Or_error.t
val get_bans : t -> Ban_t.t list Async.Deferred.Or_error.t
val get_channel : id:Snowflake.t -> t -> Channel_t.t Async.Deferred.Or_error.t
val get_emoji : id:Snowflake.t -> t -> Emoji.t Async.Deferred.Or_error.t
val get_invites : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_member : id:Snowflake.t -> t -> Member_t.t Async.Deferred.Or_error.t
val get_prune_count : days:int -> t -> int Async.Deferred.Or_error.t
val get_role : id:Snowflake.t -> t -> Role_t.t option
val get_webhooks : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val kick_user : id:Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
val leave : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val list_voice_regions : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val prune : days:int -> t -> int Async.Deferred.Or_error.t
val request_members : t -> Member_t.t list Async.Deferred.Or_error.t
val set_afk_channel : id:Snowflake.t -> t -> t Async.Deferred.Or_error.t
val set_afk_timeout : timeout:int -> t -> t Async.Deferred.Or_error.t
val set_name : name:string -> t -> t Async.Deferred.Or_error.t
val set_icon : icon:string -> t -> t Async.Deferred.Or_error.t
val unban_user : id:Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml/Guild_t/index.html b/docs/disml/Disml/Guild_t/index.html new file mode 100644 index 0000000..5348842 --- /dev/null +++ b/docs/disml/Disml/Guild_t/index.html @@ -0,0 +1,2 @@ + +Guild_t (disml.Disml.Guild_t)

Module Disml.Guild_t

type pre = {
id : Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Snowflake.t;
region : string;
afk_channel_id : Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Role_t.role list;
emojis : Emoji.t list;
features : string list;
mfa_level : int;
application_id : Snowflake.t option;
widget_enabled : bool option;
widget_channel : Channel_t.channel_wrapper option;
system_channel : Channel_t.channel_wrapper option;
large : bool;
unavailable : bool;
member_count : int option;
members : Member_t.member list;
channels : Channel_t.channel_wrapper list;
}
val pre_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> pre
val sexp_of_pre : pre -> Ppx_sexp_conv_lib.Sexp.t
val pre_to_yojson : pre -> Yojson.Safe.json
val pre_of_yojson : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val _ : pre -> Yojson.Safe.json
val _ : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val pre_of_yojson_exn : Yojson.Safe.json -> pre
val _ : Yojson.Safe.json -> pre
type t = {
id : Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Snowflake.t;
region : string;
afk_channel_id : Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Role_t.t list;
emojis : Emoji.t list;
features : string list;
mfa_level : int;
application_id : Snowflake.t option;
widget_enabled : bool option;
widget_channel : Channel_t.t option;
system_channel : Channel_t.t option;
large : bool;
unavailable : bool;
member_count : int option;
members : Member_t.t list;
channels : Channel_t.t list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val wrap : pre -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Http/Base/index.html b/docs/disml/Disml/Http/Base/index.html new file mode 100644 index 0000000..1d54bf9 --- /dev/null +++ b/docs/disml/Disml/Http/Base/index.html @@ -0,0 +1,2 @@ + +Base (disml.Disml.Http.Base)

Module Http.Base

exception Invalid_Method
val base_url : string
val process_url : string -> Uri.t
val process_request_body : Yojson.Safe.json -> Cohttp_async.Body.t
val process_request_headers : unit -> Cohttp.Header.t
val process_response : string -> (Cohttp_async.Response.t * Cohttp_async.Body.t) -> Yojson.Safe.json Async.Deferred.Or_error.t
val request : ?⁠body:Yojson.Safe.json -> ?⁠query:(string * string) list -> [> `DELETE | `GET | `PATCH | `POST | `PUT ] -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml/Http/index.html b/docs/disml/Disml/Http/index.html new file mode 100644 index 0000000..ea08b3d --- /dev/null +++ b/docs/disml/Disml/Http/index.html @@ -0,0 +1,2 @@ + +Http (disml.Disml.Http)

Module Disml.Http

module Base : sig ... end
val get_gateway : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_gateway_bot : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val modify_channel : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_channel : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_messages : int -> int -> (string * int) -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_message : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_reaction : int -> int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_own_reaction : int -> int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_reaction : int -> int -> string -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_reactions : int -> int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_reactions : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_message : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val bulk_delete : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_channel_permissions : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel_invites : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_channel_invite : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_channel_permission : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val broadcast_typing : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_pinned_messages : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val pin_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val unpin_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val group_recipient_add : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val group_recipient_remove : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_emojis : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_emoji : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_emoji : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_emoji : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_emoji : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_guild : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_guild : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_guild : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_channels : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_guild_channel : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val modify_guild_channel_positions : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_member : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_members : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_member : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_member : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val remove_member : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val change_nickname : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_member_role : int -> int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val remove_member_role : int -> int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_bans : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_ban : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_ban_add : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_ban_remove : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_roles : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_role_add : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_roles_edit : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_role_edit : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_role_remove : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_prune_count : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_prune_start : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_voice_regions : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_invites : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_integrations : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_integration : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_integration : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_integration : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val sync_integration : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_embed : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_guild_embed : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_vanity_url : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_invite : string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_invite : string -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_current_user : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_current_user : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guilds : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val leave_guild : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_private_channels : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_dm : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_group_dm : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_connections : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_user : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_voice_regions : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_webhook : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel_webhooks : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_webhooks : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_webhook : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_webhook_with_token : int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_webhook : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_webhook_with_token : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_webhook : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_webhook_with_token : int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_slack_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_git_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_audit_logs : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml/Member/index.html b/docs/disml/Disml/Member/index.html new file mode 100644 index 0000000..2bb0712 --- /dev/null +++ b/docs/disml/Disml/Member/index.html @@ -0,0 +1,2 @@ + +Member (disml.Disml.Member)

Module Disml.Member

include module type of Member_t
type partial_member = {
nick : string option;
roles : Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
}
val partial_member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_member
val sexp_of_partial_member : partial_member -> Ppx_sexp_conv_lib.Sexp.t
val partial_member_to_yojson : partial_member -> Yojson.Safe.json
val partial_member_of_yojson : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val _ : partial_member -> Yojson.Safe.json
val _ : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val partial_member_of_yojson_exn : Yojson.Safe.json -> partial_member
val _ : Yojson.Safe.json -> partial_member
type member = {
nick : string option;
roles : Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : User_t.t;
}
val member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member
val sexp_of_member : member -> Ppx_sexp_conv_lib.Sexp.t
val member_to_yojson : member -> Yojson.Safe.json
val member_of_yojson : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val _ : member -> Yojson.Safe.json
val _ : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val member_of_yojson_exn : Yojson.Safe.json -> member
val _ : Yojson.Safe.json -> member
type member_wrapper = {
guild_id : Snowflake.t;
user : User_t.t;
}
val member_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_wrapper
val sexp_of_member_wrapper : member_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val member_wrapper_to_yojson : member_wrapper -> Yojson.Safe.json
val member_wrapper_of_yojson : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val _ : member_wrapper -> Yojson.Safe.json
val _ : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val member_wrapper_of_yojson_exn : Yojson.Safe.json -> member_wrapper
val _ : Yojson.Safe.json -> member_wrapper
type member_update = {
guild_id : Snowflake.t;
roles : Snowflake.t list;
user : User_t.t;
nick : string option;
}
val member_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_update
val sexp_of_member_update : member_update -> Ppx_sexp_conv_lib.Sexp.t
val member_update_to_yojson : member_update -> Yojson.Safe.json
val member_update_of_yojson : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val _ : member_update -> Yojson.Safe.json
val _ : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val member_update_of_yojson_exn : Yojson.Safe.json -> member_update
val _ : Yojson.Safe.json -> member_update
type t = {
nick : string option;
roles : Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : User_t.t;
guild_id : Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val wrap : guild_id:Snowflake.t -> member -> t
val add_role : role:Role_t.t -> Member_t.t -> unit Async.Deferred.Or_error.t
val remove_role : role:Role_t.t -> Member_t.t -> unit Async.Deferred.Or_error.t
val ban : ?⁠reason:string -> ?⁠days:int -> Member_t.t -> unit Async.Deferred.Or_error.t
val kick : ?⁠reason:string -> Member_t.t -> unit Async.Deferred.Or_error.t
val mute : Member_t.t -> unit Async.Deferred.Or_error.t
val deafen : Member_t.t -> unit Async.Deferred.Or_error.t
val unmute : Member_t.t -> unit Async.Deferred.Or_error.t
val undeafen : Member_t.t -> unit Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml/Member_t/index.html b/docs/disml/Disml/Member_t/index.html new file mode 100644 index 0000000..42ffed1 --- /dev/null +++ b/docs/disml/Disml/Member_t/index.html @@ -0,0 +1,2 @@ + +Member_t (disml.Disml.Member_t)

Module Disml.Member_t

type partial_member = {
nick : string option;
roles : Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
}
val partial_member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_member
val sexp_of_partial_member : partial_member -> Ppx_sexp_conv_lib.Sexp.t
val partial_member_to_yojson : partial_member -> Yojson.Safe.json
val partial_member_of_yojson : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val _ : partial_member -> Yojson.Safe.json
val _ : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val partial_member_of_yojson_exn : Yojson.Safe.json -> partial_member
val _ : Yojson.Safe.json -> partial_member
type member = {
nick : string option;
roles : Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : User_t.t;
}
val member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member
val sexp_of_member : member -> Ppx_sexp_conv_lib.Sexp.t
val member_to_yojson : member -> Yojson.Safe.json
val member_of_yojson : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val _ : member -> Yojson.Safe.json
val _ : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val member_of_yojson_exn : Yojson.Safe.json -> member
val _ : Yojson.Safe.json -> member
type member_wrapper = {
guild_id : Snowflake.t;
user : User_t.t;
}
val member_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_wrapper
val sexp_of_member_wrapper : member_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val member_wrapper_to_yojson : member_wrapper -> Yojson.Safe.json
val member_wrapper_of_yojson : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val _ : member_wrapper -> Yojson.Safe.json
val _ : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val member_wrapper_of_yojson_exn : Yojson.Safe.json -> member_wrapper
val _ : Yojson.Safe.json -> member_wrapper
type member_update = {
guild_id : Snowflake.t;
roles : Snowflake.t list;
user : User_t.t;
nick : string option;
}
val member_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_update
val sexp_of_member_update : member_update -> Ppx_sexp_conv_lib.Sexp.t
val member_update_to_yojson : member_update -> Yojson.Safe.json
val member_update_of_yojson : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val _ : member_update -> Yojson.Safe.json
val _ : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val member_update_of_yojson_exn : Yojson.Safe.json -> member_update
val _ : Yojson.Safe.json -> member_update
type t = {
nick : string option;
roles : Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : User_t.t;
guild_id : Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val wrap : guild_id:Snowflake.t -> member -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Message/index.html b/docs/disml/Disml/Message/index.html new file mode 100644 index 0000000..4616cd2 --- /dev/null +++ b/docs/disml/Disml/Message/index.html @@ -0,0 +1,2 @@ + +Message (disml.Disml.Message)

Module Disml.Message

include module type of Message_t
type message_update = {
id : Snowflake.t;
author : User_t.t option;
channel_id : Snowflake.t;
member : Member_t.partial_member option;
guild_id : Snowflake.t option;
content : string option;
timestamp : string option;
editedimestamp : string option;
tts : bool option;
mention_everyone : bool option;
mentions : Snowflake.t list;
role_mentions : Snowflake.t list;
attachments : Attachment.t list;
embeds : Embed.t list;
reactions : Snowflake.t list;
nonce : Snowflake.t option;
pinned : bool option;
webhook_id : Snowflake.t option;
kind : int option;
}
val message_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> message_update
val sexp_of_message_update : message_update -> Ppx_sexp_conv_lib.Sexp.t
val message_update_to_yojson : message_update -> Yojson.Safe.json
val message_update_of_yojson : Yojson.Safe.json -> message_update Ppx_deriving_yojson_runtime.error_or
val _ : message_update -> Yojson.Safe.json
val _ : Yojson.Safe.json -> message_update Ppx_deriving_yojson_runtime.error_or
val message_update_of_yojson_exn : Yojson.Safe.json -> message_update
val _ : Yojson.Safe.json -> message_update
type t = {
id : Snowflake.t;
author : User_t.t;
channel_id : Snowflake.t;
member : Member_t.partial_member option;
guild_id : Snowflake.t option;
content : string;
timestamp : string;
editedimestamp : string option;
tts : bool;
mention_everyone : bool;
attachments : Attachment.t list;
embeds : Embed.t list;
reactions : Snowflake.t list;
nonce : Snowflake.t option;
pinned : bool;
webhook_id : Snowflake.t option;
kind : int;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val add_reaction : t -> Emoji.t -> unit Async.Deferred.Or_error.t
val remove_reaction : t -> Emoji.t -> User_t.t -> unit Async.Deferred.Or_error.t
val clear_reactions : t -> unit Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val pin : t -> unit Async.Deferred.Or_error.t
val unpin : t -> unit Async.Deferred.Or_error.t
val reply : t -> string -> t Async.Deferred.Or_error.t
val set_content : t -> string -> t Async.Deferred.Or_error.t
val set_embed : t -> Embed.t -> t Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml/Message_t/index.html b/docs/disml/Disml/Message_t/index.html new file mode 100644 index 0000000..c90f2fd --- /dev/null +++ b/docs/disml/Disml/Message_t/index.html @@ -0,0 +1,2 @@ + +Message_t (disml.Disml.Message_t)

Module Disml.Message_t

type message_update = {
id : Snowflake.t;
author : User_t.t option;
channel_id : Snowflake.t;
member : Member_t.partial_member option;
guild_id : Snowflake.t option;
content : string option;
timestamp : string option;
editedimestamp : string option;
tts : bool option;
mention_everyone : bool option;
mentions : Snowflake.t list;
role_mentions : Snowflake.t list;
attachments : Attachment.t list;
embeds : Embed.t list;
reactions : Snowflake.t list;
nonce : Snowflake.t option;
pinned : bool option;
webhook_id : Snowflake.t option;
kind : int option;
}
val message_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> message_update
val sexp_of_message_update : message_update -> Ppx_sexp_conv_lib.Sexp.t
val message_update_to_yojson : message_update -> Yojson.Safe.json
val message_update_of_yojson : Yojson.Safe.json -> message_update Ppx_deriving_yojson_runtime.error_or
val _ : message_update -> Yojson.Safe.json
val _ : Yojson.Safe.json -> message_update Ppx_deriving_yojson_runtime.error_or
val message_update_of_yojson_exn : Yojson.Safe.json -> message_update
val _ : Yojson.Safe.json -> message_update
type t = {
id : Snowflake.t;
author : User_t.t;
channel_id : Snowflake.t;
member : Member_t.partial_member option;
guild_id : Snowflake.t option;
content : string;
timestamp : string;
editedimestamp : string option;
tts : bool;
mention_everyone : bool;
attachments : Attachment.t list;
embeds : Embed.t list;
reactions : Snowflake.t list;
nonce : Snowflake.t option;
pinned : bool;
webhook_id : Snowflake.t option;
kind : int;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Opcode/index.html b/docs/disml/Disml/Opcode/index.html new file mode 100644 index 0000000..d225f0a --- /dev/null +++ b/docs/disml/Disml/Opcode/index.html @@ -0,0 +1,2 @@ + +Opcode (disml.Disml.Opcode)

Module Disml.Opcode

type t =
| DISPATCH
| HEARTBEAT
| IDENTIFY
| STATUS_UPDATE
| VOICE_STATE_UPDATE
| RESUME
| RECONNECT
| REQUEST_GUILD_MEMBERS
| INVALID_SESSION
| HELLO
| HEARTBEAT_ACK
exception Invalid_Opcode of int
val to_int : t -> int
val from_int : int -> t
val to_string : t -> string
\ No newline at end of file diff --git a/docs/disml/Disml/Presence/index.html b/docs/disml/Disml/Presence/index.html new file mode 100644 index 0000000..c521305 --- /dev/null +++ b/docs/disml/Disml/Presence/index.html @@ -0,0 +1,2 @@ + +Presence (disml.Disml.Presence)

Module Disml.Presence

type t = {
user : User_t.partial_user;
roles : Snowflake.t list;
game : Activity.t option;
guild_id : Snowflake.t;
status : string;
activities : Activity.t list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Reaction/index.html b/docs/disml/Disml/Reaction/index.html new file mode 100644 index 0000000..38300ae --- /dev/null +++ b/docs/disml/Disml/Reaction/index.html @@ -0,0 +1,2 @@ + +Reaction (disml.Disml.Reaction)

Module Disml.Reaction

include module type of Reaction_t
type reaction_event = {
user_id : Snowflake.t;
channel_id : Snowflake.t;
message_id : Snowflake.t;
guild_id : Snowflake.t option;
emoji : Emoji.partial_emoji;
}
val reaction_event_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> reaction_event
val sexp_of_reaction_event : reaction_event -> Ppx_sexp_conv_lib.Sexp.t
val reaction_event_to_yojson : reaction_event -> Yojson.Safe.json
val reaction_event_of_yojson : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val _ : reaction_event -> Yojson.Safe.json
val _ : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val reaction_event_of_yojson_exn : Yojson.Safe.json -> reaction_event
val _ : Yojson.Safe.json -> reaction_event
type t = {
count : int;
emoji : Emoji.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Reaction_t/index.html b/docs/disml/Disml/Reaction_t/index.html new file mode 100644 index 0000000..23e0bd2 --- /dev/null +++ b/docs/disml/Disml/Reaction_t/index.html @@ -0,0 +1,2 @@ + +Reaction_t (disml.Disml.Reaction_t)

Module Disml.Reaction_t

type reaction_event = {
user_id : Snowflake.t;
channel_id : Snowflake.t;
message_id : Snowflake.t;
guild_id : Snowflake.t option;
emoji : Emoji.partial_emoji;
}
val reaction_event_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> reaction_event
val sexp_of_reaction_event : reaction_event -> Ppx_sexp_conv_lib.Sexp.t
val reaction_event_to_yojson : reaction_event -> Yojson.Safe.json
val reaction_event_of_yojson : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val _ : reaction_event -> Yojson.Safe.json
val _ : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val reaction_event_of_yojson_exn : Yojson.Safe.json -> reaction_event
val _ : Yojson.Safe.json -> reaction_event
type t = {
count : int;
emoji : Emoji.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Key/index.html b/docs/disml/Disml/Rl/RouteMap/Key/index.html new file mode 100644 index 0000000..0d08653 --- /dev/null +++ b/docs/disml/Disml/Rl/RouteMap/Key/index.html @@ -0,0 +1,2 @@ + +Key (disml.Disml.Rl.RouteMap.Key)

Module RouteMap.Key

type t = Core.String.t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
type comparator_witness = Core_kernel__Map.Make(Core.String).Key.comparator_witness
val comparator : (t, comparator_witness) Core_kernel__.Comparator.comparator
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html b/docs/disml/Disml/Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html new file mode 100644 index 0000000..3665a79 --- /dev/null +++ b/docs/disml/Disml/Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html @@ -0,0 +1,2 @@ + +1-Key (disml.Disml.Rl.RouteMap.Provide_bin_io.1-Key)

Parameter Provide_bin_io.1-Key

val bin_t : Key.t Bin_prot.Type_class.t
val bin_read_t : Key.t Bin_prot.Read.reader
val __bin_read_t__ : (Core_kernel__.Import.int -> Key.t) Bin_prot.Read.reader
val bin_reader_t : Key.t Bin_prot.Type_class.reader
val bin_size_t : Key.t Bin_prot.Size.sizer
val bin_write_t : Key.t Bin_prot.Write.writer
val bin_writer_t : Key.t Bin_prot.Type_class.writer
val bin_shape_t : Bin_prot.Shape.t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Provide_bin_io/index.html b/docs/disml/Disml/Rl/RouteMap/Provide_bin_io/index.html new file mode 100644 index 0000000..f977cbf --- /dev/null +++ b/docs/disml/Disml/Rl/RouteMap/Provide_bin_io/index.html @@ -0,0 +1,2 @@ + +Provide_bin_io (disml.Disml.Rl.RouteMap.Provide_bin_io)

Module RouteMap.Provide_bin_io

Parameters

Key : sig ... end

Signature

val bin_shape_t : Bin_prot.Shape.t -> Bin_prot.Shape.t
val bin_size_t : ('a, 'a t) Bin_prot.Size.sizer1
val bin_write_t : ('a, 'a t) Bin_prot.Write.writer1
val bin_read_t : ('a, 'a t) Bin_prot.Read.reader1
val __bin_read_t__ : ('a, int -> 'a t) Bin_prot.Read.reader1
val bin_writer_t : ('a, 'a t) Bin_prot.Type_class.S1.writer
val bin_reader_t : ('a, 'a t) Bin_prot.Type_class.S1.reader
val bin_t : ('a, 'a t) Bin_prot.Type_class.S1.t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Provide_hash/argument-1-Key/index.html b/docs/disml/Disml/Rl/RouteMap/Provide_hash/argument-1-Key/index.html new file mode 100644 index 0000000..5e10b44 --- /dev/null +++ b/docs/disml/Disml/Rl/RouteMap/Provide_hash/argument-1-Key/index.html @@ -0,0 +1,2 @@ + +1-Key (disml.Disml.Rl.RouteMap.Provide_hash.1-Key)

Parameter Provide_hash.1-Key

val hash_fold_t : Base__.Hash.state -> Key.t -> Base__.Hash.state
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Provide_hash/index.html b/docs/disml/Disml/Rl/RouteMap/Provide_hash/index.html new file mode 100644 index 0000000..3ea6368 --- /dev/null +++ b/docs/disml/Disml/Rl/RouteMap/Provide_hash/index.html @@ -0,0 +1,2 @@ + +Provide_hash (disml.Disml.Rl.RouteMap.Provide_hash)

Module RouteMap.Provide_hash

Parameters

Key : sig ... end

Signature

val hash_fold_t : (Ppx_hash_lib.Std.Hash.state -> 'a -> Ppx_hash_lib.Std.Hash.state) -> Ppx_hash_lib.Std.Hash.state -> 'a t -> Ppx_hash_lib.Std.Hash.state
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html b/docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html new file mode 100644 index 0000000..5373248 --- /dev/null +++ b/docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html @@ -0,0 +1,2 @@ + +1-Key (disml.Disml.Rl.RouteMap.Provide_of_sexp.1-Key)

Parameter Provide_of_sexp.1-Key

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> Key.t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/index.html b/docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/index.html new file mode 100644 index 0000000..91285ef --- /dev/null +++ b/docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/index.html @@ -0,0 +1,2 @@ + +Provide_of_sexp (disml.Disml.Rl.RouteMap.Provide_of_sexp)

Module RouteMap.Provide_of_sexp

Parameters

Key : sig ... end

Signature

val t_of_sexp : (Ppx_sexp_conv_lib.Sexp.t -> 'v_x__018_) -> Ppx_sexp_conv_lib.Sexp.t -> 'v_x__018_ t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html b/docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html new file mode 100644 index 0000000..f8f708c --- /dev/null +++ b/docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html @@ -0,0 +1,2 @@ + +1-K (disml.Disml.Rl.RouteMap.Tree.Provide_of_sexp.1-K)

Parameter Provide_of_sexp.1-K

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> Key.t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/index.html b/docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/index.html new file mode 100644 index 0000000..d2fee99 --- /dev/null +++ b/docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/index.html @@ -0,0 +1,2 @@ + +Provide_of_sexp (disml.Disml.Rl.RouteMap.Tree.Provide_of_sexp)

Module Tree.Provide_of_sexp

Parameters

K : sig ... end

Signature

val t_of_sexp : (Ppx_sexp_conv_lib.Sexp.t -> 'v_x__017_) -> Ppx_sexp_conv_lib.Sexp.t -> 'v_x__017_ t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Tree/index.html b/docs/disml/Disml/Rl/RouteMap/Tree/index.html new file mode 100644 index 0000000..26b93a3 --- /dev/null +++ b/docs/disml/Disml/Rl/RouteMap/Tree/index.html @@ -0,0 +1,2 @@ + +Tree (disml.Disml.Rl.RouteMap.Tree)

Module RouteMap.Tree

type 'a t = (Key.t, 'a, Key.comparator_witness) Core_kernel__.Map_intf.Tree.t
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist : (Key.t * 'a) list -> [ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error : (Key.t * 'a) list -> 'a t Base__.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold : (Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce : (Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array : (Key.t * 'a) array -> 'a t Base__.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_increasing_iterator_unchecked : len:int -> f:(int -> Key.t * 'a) -> 'a t
val of_increasing_sequence : (Key.t * 'a) Base__.Sequence.t -> 'a t Base__.Or_error.t
val of_iteri : iteri:(f:(key:Key.t -> data:'v -> unit) -> unit) -> [ `Duplicate_key of Key.t | `Ok of 'v t ]
val of_tree : 'a t -> 'a t
val of_hashtbl_exn : (Key.t, 'a) Core_kernel__.Hashtbl.t -> 'a t
val gen : Key.t Core_kernel__.Quickcheck.Generator.t -> 'a Core_kernel__.Quickcheck.Generator.t -> 'a t Core_kernel__.Quickcheck.Generator.t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t Base__.Map_intf.Or_duplicate.t
val add_exn : 'a t -> key:Key.t -> data:'a -> 'a t
val set : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val remove_multi : 'a list t -> Key.t -> 'a list t
val find_multi : 'a list t -> Key.t -> 'a list
val change : 'a t -> Key.t -> f:('a option -> 'a option) -> 'a t
val update : 'a t -> Key.t -> f:('a option -> 'a) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter_keys : 'a t -> f:(Key.t -> unit) -> unit
val iter : 'a t -> f:('a -> unit) -> unit
val iteri : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 : 'a t -> 'b t -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> unit) -> unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold2 : 'a t -> 'b t -> init:'c -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c -> 'c) -> 'c
val filter_keys : 'a t -> f:(Key.t -> bool) -> 'a t
val filter : 'a t -> f:('a -> bool) -> 'a t
val filteri : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val partition_mapi : 'a t -> f:(key:Key.t -> data:'a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partition_map : 'a t -> f:('a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partitioni_tf : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t * 'a t
val partition_tf : 'a t -> f:('a -> bool) -> 'a t * 'a t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : ?⁠key_order:[ `Decreasing | `Increasing ] -> 'a t -> (Key.t * 'a) list
val validate : name:(Key.t -> string) -> 'a Base__.Validate.check -> 'a t Base__.Validate.check
val merge : 'a t -> 'b t -> f:(key:Key.t -> [ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c option) -> 'c t
val symmetric_diff : 'a t -> 'a t -> data_equal:('a -> 'a -> bool) -> (Key.t, 'a) Base__.Map_intf.Symmetric_diff_element.t Base__.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val for_alli : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val existsi : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val count : 'a t -> f:('a -> bool) -> int
val counti : 'a t -> f:(key:Key.t -> data:'a -> bool) -> int
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val append : lower_part:'a t -> upper_part:'a t -> [ `Ok of 'a t | `Overlapping_key_ranges ]
val subrange : 'a t -> lower_bound:Key.t Base__.Maybe_bound.t -> upper_bound:Key.t Base__.Maybe_bound.t -> 'a t
val fold_range_inclusive : 'a t -> min:Key.t -> max:Key.t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist : 'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key : 'a t -> [ `Greater_or_equal_to | `Greater_than | `Less_or_equal_to | `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val nth_exn : 'a t -> int -> Key.t * 'a
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a t
val to_sequence : ?⁠order:[ `Decreasing_key | `Increasing_key ] -> ?⁠keys_greater_or_equal_to:Key.t -> ?⁠keys_less_or_equal_to:Key.t -> 'a t -> (Key.t * 'a) Base__.Sequence.t
val obs : Key.t Core_kernel__.Quickcheck.Observer.t -> 'v Core_kernel__.Quickcheck.Observer.t -> 'v t Core_kernel__.Quickcheck.Observer.t
val shrinker : Key.t Core_kernel__.Quickcheck.Shrinker.t -> 'v Core_kernel__.Quickcheck.Shrinker.t -> 'v t Core_kernel__.Quickcheck.Shrinker.t
module Provide_of_sexp : functor (K : sig ... end) -> sig ... end
val t_of_sexp : (Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a) -> Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a t
val sexp_of_t : ('a -> Base__.Ppx_sexp_conv_lib.Sexp.t) -> 'a t -> Base__.Ppx_sexp_conv_lib.Sexp.t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/index.html b/docs/disml/Disml/Rl/RouteMap/index.html new file mode 100644 index 0000000..5a17234 --- /dev/null +++ b/docs/disml/Disml/Rl/RouteMap/index.html @@ -0,0 +1,2 @@ + +RouteMap (disml.Disml.Rl.RouteMap)

Module Rl.RouteMap

module Key : sig ... end
module Tree : sig ... end
type 'a t = (Key.t, 'a, Key.comparator_witness) Core_kernel__.Map_intf.Map.t
val compare : ('a -> 'a -> Core_kernel__.Import.int) -> 'a t -> 'a t -> Core_kernel__.Import.int
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist : (Key.t * 'a) list -> [ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error : (Key.t * 'a) list -> 'a t Base__.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold : (Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce : (Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array : (Key.t * 'a) array -> 'a t Base__.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_increasing_iterator_unchecked : len:int -> f:(int -> Key.t * 'a) -> 'a t
val of_increasing_sequence : (Key.t * 'a) Base__.Sequence.t -> 'a t Base__.Or_error.t
val of_iteri : iteri:(f:(key:Key.t -> data:'v -> unit) -> unit) -> [ `Duplicate_key of Key.t | `Ok of 'v t ]
val of_tree : 'a Tree.t -> 'a t
val of_hashtbl_exn : (Key.t, 'a) Core_kernel__.Hashtbl.t -> 'a t
val gen : Key.t Core_kernel__.Quickcheck.Generator.t -> 'a Core_kernel__.Quickcheck.Generator.t -> 'a t Core_kernel__.Quickcheck.Generator.t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t Base__.Map_intf.Or_duplicate.t
val add_exn : 'a t -> key:Key.t -> data:'a -> 'a t
val set : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val remove_multi : 'a list t -> Key.t -> 'a list t
val find_multi : 'a list t -> Key.t -> 'a list
val change : 'a t -> Key.t -> f:('a option -> 'a option) -> 'a t
val update : 'a t -> Key.t -> f:('a option -> 'a) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter_keys : 'a t -> f:(Key.t -> unit) -> unit
val iter : 'a t -> f:('a -> unit) -> unit
val iteri : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 : 'a t -> 'b t -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> unit) -> unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold2 : 'a t -> 'b t -> init:'c -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c -> 'c) -> 'c
val filter_keys : 'a t -> f:(Key.t -> bool) -> 'a t
val filter : 'a t -> f:('a -> bool) -> 'a t
val filteri : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val partition_mapi : 'a t -> f:(key:Key.t -> data:'a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partition_map : 'a t -> f:('a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partitioni_tf : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t * 'a t
val partition_tf : 'a t -> f:('a -> bool) -> 'a t * 'a t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : ?⁠key_order:[ `Decreasing | `Increasing ] -> 'a t -> (Key.t * 'a) list
val validate : name:(Key.t -> string) -> 'a Base__.Validate.check -> 'a t Base__.Validate.check
val merge : 'a t -> 'b t -> f:(key:Key.t -> [ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c option) -> 'c t
val symmetric_diff : 'a t -> 'a t -> data_equal:('a -> 'a -> bool) -> (Key.t, 'a) Base__.Map_intf.Symmetric_diff_element.t Base__.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val for_alli : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val existsi : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val count : 'a t -> f:('a -> bool) -> int
val counti : 'a t -> f:(key:Key.t -> data:'a -> bool) -> int
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val append : lower_part:'a t -> upper_part:'a t -> [ `Ok of 'a t | `Overlapping_key_ranges ]
val subrange : 'a t -> lower_bound:Key.t Base__.Maybe_bound.t -> upper_bound:Key.t Base__.Maybe_bound.t -> 'a t
val fold_range_inclusive : 'a t -> min:Key.t -> max:Key.t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist : 'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key : 'a t -> [ `Greater_or_equal_to | `Greater_than | `Less_or_equal_to | `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val nth_exn : 'a t -> int -> Key.t * 'a
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a Tree.t
val to_sequence : ?⁠order:[ `Decreasing_key | `Increasing_key ] -> ?⁠keys_greater_or_equal_to:Key.t -> ?⁠keys_less_or_equal_to:Key.t -> 'a t -> (Key.t * 'a) Base__.Sequence.t
val obs : Key.t Core_kernel__.Quickcheck.Observer.t -> 'v Core_kernel__.Quickcheck.Observer.t -> 'v t Core_kernel__.Quickcheck.Observer.t
val shrinker : Key.t Core_kernel__.Quickcheck.Shrinker.t -> 'v Core_kernel__.Quickcheck.Shrinker.t -> 'v t Core_kernel__.Quickcheck.Shrinker.t
module Provide_of_sexp : functor (Key : sig ... end) -> sig ... end
module Provide_bin_io : functor (Key : sig ... end) -> sig ... end
module Provide_hash : functor (Key : sig ... end) -> sig ... end
val t_of_sexp : (Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a) -> Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a t
val sexp_of_t : ('a -> Base__.Ppx_sexp_conv_lib.Sexp.t) -> 'a t -> Base__.Ppx_sexp_conv_lib.Sexp.t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/index.html b/docs/disml/Disml/Rl/index.html new file mode 100644 index 0000000..f54ccda --- /dev/null +++ b/docs/disml/Disml/Rl/index.html @@ -0,0 +1,2 @@ + +Rl (disml.Disml.Rl)

Module Disml.Rl

module RouteMap : module type of sig ... end
type rl = {
limit : int;
remaining : int;
reset : int;
}
type t = (rl, Core.read_write) Async.Mvar.t RouteMap.t
val rl_of_header : Cohttp.Header.t -> rl option
val default : rl
val empty : t
val update : 'a RouteMap.t -> string -> f:('a option -> 'a) -> 'a RouteMap.t
val find : 'a RouteMap.t -> string -> 'a option
val find_exn : 'a RouteMap.t -> string -> 'a
\ No newline at end of file diff --git a/docs/disml/Disml/Role/index.html b/docs/disml/Disml/Role/index.html new file mode 100644 index 0000000..278706d --- /dev/null +++ b/docs/disml/Disml/Role/index.html @@ -0,0 +1,2 @@ + +Role (disml.Disml.Role)

Module Disml.Role

include module type of Role_t
type role = {
id : Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
}
val role_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role
val sexp_of_role : role -> Ppx_sexp_conv_lib.Sexp.t
val role_to_yojson : role -> Yojson.Safe.json
val role_of_yojson : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val _ : role -> Yojson.Safe.json
val _ : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val role_of_yojson_exn : Yojson.Safe.json -> role
val _ : Yojson.Safe.json -> role
type role_update = {
role : role;
guild_id : Snowflake.t;
}
val role_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role_update
val sexp_of_role_update : role_update -> Ppx_sexp_conv_lib.Sexp.t
val role_update_to_yojson : role_update -> Yojson.Safe.json
val role_update_of_yojson : Yojson.Safe.json -> role_update Ppx_deriving_yojson_runtime.error_or
val _ : role_update -> Yojson.Safe.json
val _ : Yojson.Safe.json -> role_update Ppx_deriving_yojson_runtime.error_or
val role_update_of_yojson_exn : Yojson.Safe.json -> role_update
val _ : Yojson.Safe.json -> role_update
type t = {
id : Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
guild_id : Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val wrap : guild_id:Snowflake.t -> role -> t
val allow_mention : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val disallow_mention : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val hoist : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val set_colour : colour:int -> t -> Yojson.Safe.json Async.Deferred.Or_error.t
val set_name : name:string -> t -> Yojson.Safe.json Async.Deferred.Or_error.t
val unhoist : t -> Yojson.Safe.json Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml/Role_t/index.html b/docs/disml/Disml/Role_t/index.html new file mode 100644 index 0000000..3af6846 --- /dev/null +++ b/docs/disml/Disml/Role_t/index.html @@ -0,0 +1,2 @@ + +Role_t (disml.Disml.Role_t)

Module Disml.Role_t

type role = {
id : Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
}
val role_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role
val sexp_of_role : role -> Ppx_sexp_conv_lib.Sexp.t
val role_to_yojson : role -> Yojson.Safe.json
val role_of_yojson : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val _ : role -> Yojson.Safe.json
val _ : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val role_of_yojson_exn : Yojson.Safe.json -> role
val _ : Yojson.Safe.json -> role
type role_update = {
role : role;
guild_id : Snowflake.t;
}
val role_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role_update
val sexp_of_role_update : role_update -> Ppx_sexp_conv_lib.Sexp.t
val role_update_to_yojson : role_update -> Yojson.Safe.json
val role_update_of_yojson : Yojson.Safe.json -> role_update Ppx_deriving_yojson_runtime.error_or
val _ : role_update -> Yojson.Safe.json
val _ : Yojson.Safe.json -> role_update Ppx_deriving_yojson_runtime.error_or
val role_update_of_yojson_exn : Yojson.Safe.json -> role_update
val _ : Yojson.Safe.json -> role_update
type t = {
id : Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
guild_id : Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val wrap : guild_id:Snowflake.t -> role -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Sharder/Shard/index.html b/docs/disml/Disml/Sharder/Shard/index.html new file mode 100644 index 0000000..264a819 --- /dev/null +++ b/docs/disml/Disml/Sharder/Shard/index.html @@ -0,0 +1,2 @@ + +Shard (disml.Disml.Sharder.Shard)

Module Sharder.Shard

type shard
type 'a t = {
mutable state : 'a;
}
val heartbeat : shard -> shard Async.Deferred.t
val set_status : status:Yojson.Safe.json -> shard -> shard Async.Deferred.t
val request_guild_members : ?⁠query:string -> ?⁠limit:int -> guild:Snowflake.t -> shard -> shard Async.Deferred.t
val create : url:string -> shards:(int * int) -> unit -> shard Async.Deferred.t
\ No newline at end of file diff --git a/docs/disml/Disml/Sharder/index.html b/docs/disml/Disml/Sharder/index.html new file mode 100644 index 0000000..409ecf3 --- /dev/null +++ b/docs/disml/Disml/Sharder/index.html @@ -0,0 +1,2 @@ + +Sharder (disml.Disml.Sharder)

Module Disml.Sharder

exception Invalid_Payload
exception Failure_to_Establish_Heartbeat
type t
val start : ?⁠count:int -> unit -> t Async.Deferred.t
module Shard : sig ... end
val set_status : status:Yojson.Safe.json -> t -> Shard.shard list Async.Deferred.t
val set_status_with : f:(Shard.shard -> Yojson.Safe.json) -> t -> Shard.shard list Async.Deferred.t
val request_guild_members : ?⁠query:string -> ?⁠limit:int -> guild:Snowflake.t -> t -> Shard.shard list Async.Deferred.t
\ No newline at end of file diff --git a/docs/disml/Disml/Snowflake/index.html b/docs/disml/Disml/Snowflake/index.html new file mode 100644 index 0000000..0df20e3 --- /dev/null +++ b/docs/disml/Disml/Snowflake/index.html @@ -0,0 +1,2 @@ + +Snowflake (disml.Disml.Snowflake)

Module Disml.Snowflake

type t = Core.Int.t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val of_yojson_exn : Yojson.Safe.json -> Core.Int.t
val of_yojson : Yojson.Safe.json -> (Core.Int.t, string) Core._result
val to_yojson : Core.Int.t -> Yojson.Safe.json
val timestamp : int -> int
val timestamp_iso : int -> string
\ No newline at end of file diff --git a/docs/disml/Disml/User/index.html b/docs/disml/Disml/User/index.html new file mode 100644 index 0000000..4dc4915 --- /dev/null +++ b/docs/disml/Disml/User/index.html @@ -0,0 +1,2 @@ + +User (disml.Disml.User)

Module Disml.User

include module type of User_t
type partial_user = {
id : Snowflake.t;
}
val partial_user_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_user
val sexp_of_partial_user : partial_user -> Ppx_sexp_conv_lib.Sexp.t
val partial_user_to_yojson : partial_user -> Yojson.Safe.json
val partial_user_of_yojson : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val _ : partial_user -> Yojson.Safe.json
val _ : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val partial_user_of_yojson_exn : Yojson.Safe.json -> partial_user
val _ : Yojson.Safe.json -> partial_user
type t = {
id : Snowflake.t;
username : string;
discriminator : string;
avatar : string option;
bot : bool;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val tag : t -> string
val mention : t -> string
val default_avatar : t -> string
val face : t -> string
\ No newline at end of file diff --git a/docs/disml/Disml/User_t/index.html b/docs/disml/Disml/User_t/index.html new file mode 100644 index 0000000..4a0a315 --- /dev/null +++ b/docs/disml/Disml/User_t/index.html @@ -0,0 +1,2 @@ + +User_t (disml.Disml.User_t)

Module Disml.User_t

type partial_user = {
id : Snowflake.t;
}
val partial_user_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_user
val sexp_of_partial_user : partial_user -> Ppx_sexp_conv_lib.Sexp.t
val partial_user_to_yojson : partial_user -> Yojson.Safe.json
val partial_user_of_yojson : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val _ : partial_user -> Yojson.Safe.json
val _ : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val partial_user_of_yojson_exn : Yojson.Safe.json -> partial_user
val _ : Yojson.Safe.json -> partial_user
type t = {
id : Snowflake.t;
username : string;
discriminator : string;
avatar : string option;
bot : bool;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/index.html b/docs/disml/Disml/index.html new file mode 100644 index 0000000..3a526cb --- /dev/null +++ b/docs/disml/Disml/index.html @@ -0,0 +1,2 @@ + +Disml (disml.Disml)

Module Disml

module Activity : sig ... end
module Attachment : sig ... end
module Ban : sig ... end
module Ban_t : sig ... end
module Channel : sig ... end
module Channel_t : sig ... end
module Client : sig ... end
module Config : sig ... end
module Embed : sig ... end
module Emoji : sig ... end
module Endpoints : sig ... end
module Event : sig ... end
module Guild : sig ... end
module Guild_t : sig ... end
module Http : sig ... end
module Member : sig ... end
module Member_t : sig ... end
module Message : sig ... end
module Message_t : sig ... end
module Opcode : sig ... end
module Presence : sig ... end
module Reaction : sig ... end
module Reaction_t : sig ... end
module Rl : sig ... end
module Role : sig ... end
module Role_t : sig ... end
module Sharder : sig ... end
module Snowflake : sig ... end
module User : sig ... end
module User_t : sig ... end
\ No newline at end of file diff --git a/docs/disml/Disml__Activity/.dune-keep b/docs/disml/Disml__Activity/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Activity/index.html b/docs/disml/Disml__Activity/index.html new file mode 100644 index 0000000..e5dadb0 --- /dev/null +++ b/docs/disml/Disml__Activity/index.html @@ -0,0 +1,2 @@ + +Disml__Activity (disml.Disml__Activity)

Module Disml__Activity

type t = {
name : string;
kind : int;
url : string;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Attachment/.dune-keep b/docs/disml/Disml__Attachment/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Attachment/index.html b/docs/disml/Disml__Attachment/index.html new file mode 100644 index 0000000..8f8d225 --- /dev/null +++ b/docs/disml/Disml__Attachment/index.html @@ -0,0 +1,2 @@ + +Disml__Attachment (disml.Disml__Attachment)

Module Disml__Attachment

type t = {
id : Disml.Snowflake.t;
filename : string;
size : int;
url : string;
proxy_url : string;
height : int;
width : int;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Ban/.dune-keep b/docs/disml/Disml__Ban/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Ban/index.html b/docs/disml/Disml__Ban/index.html new file mode 100644 index 0000000..63cc6c0 --- /dev/null +++ b/docs/disml/Disml__Ban/index.html @@ -0,0 +1,2 @@ + +Disml__Ban (disml.Disml__Ban)

Module Disml__Ban

include module type of Disml.Ban_t
type t = {
reason : string;
user : Disml.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Ban_t/.dune-keep b/docs/disml/Disml__Ban_t/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Ban_t/index.html b/docs/disml/Disml__Ban_t/index.html new file mode 100644 index 0000000..428a2bb --- /dev/null +++ b/docs/disml/Disml__Ban_t/index.html @@ -0,0 +1,2 @@ + +Disml__Ban_t (disml.Disml__Ban_t)

Module Disml__Ban_t

type t = {
reason : string;
user : Disml.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Channel/.dune-keep b/docs/disml/Disml__Channel/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Channel/index.html b/docs/disml/Disml__Channel/index.html new file mode 100644 index 0000000..2f17db2 --- /dev/null +++ b/docs/disml/Disml__Channel/index.html @@ -0,0 +1,2 @@ + +Disml__Channel (disml.Disml__Channel)

Module Disml__Channel

include module type of Disml.Channel_t
exception Invalid_channel of Yojson.Safe.json
type group = {
id : Disml.Snowflake.t;
last_message_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
icon : string option;
name : string option;
owner_id : Disml.Snowflake.t;
recipients : Disml.User_t.t list;
}
val group_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> group
val sexp_of_group : group -> Ppx_sexp_conv_lib.Sexp.t
val group_to_yojson : group -> Yojson.Safe.json
val group_of_yojson : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val _ : group -> Yojson.Safe.json
val _ : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val group_of_yojson_exn : Yojson.Safe.json -> group
val _ : Yojson.Safe.json -> group
type dm = {
id : Disml.Snowflake.t;
last_message_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
}
val dm_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> dm
val sexp_of_dm : dm -> Ppx_sexp_conv_lib.Sexp.t
val dm_to_yojson : dm -> Yojson.Safe.json
val dm_of_yojson : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val _ : dm -> Yojson.Safe.json
val _ : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val dm_of_yojson_exn : Yojson.Safe.json -> dm
val _ : Yojson.Safe.json -> dm
type guild_text = {
id : Disml.Snowflake.t;
last_message_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
category_id : Disml.Snowflake.t option;
guild_id : Disml.Snowflake.t option;
name : string;
position : int;
topic : string option;
nsfw : bool;
slow_mode_timeout : int option;
}
val guild_text_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_text
val sexp_of_guild_text : guild_text -> Ppx_sexp_conv_lib.Sexp.t
val guild_text_to_yojson : guild_text -> Yojson.Safe.json
val guild_text_of_yojson : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val _ : guild_text -> Yojson.Safe.json
val _ : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val guild_text_of_yojson_exn : Yojson.Safe.json -> guild_text
val _ : Yojson.Safe.json -> guild_text
type guild_voice = {
id : Disml.Snowflake.t;
category_id : Disml.Snowflake.t option;
guild_id : Disml.Snowflake.t option;
name : string;
position : int;
user_limit : int;
bitrate : int option;
}
val guild_voice_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_voice
val sexp_of_guild_voice : guild_voice -> Ppx_sexp_conv_lib.Sexp.t
val guild_voice_to_yojson : guild_voice -> Yojson.Safe.json
val guild_voice_of_yojson : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val _ : guild_voice -> Yojson.Safe.json
val _ : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val guild_voice_of_yojson_exn : Yojson.Safe.json -> guild_voice
val _ : Yojson.Safe.json -> guild_voice
type category = {
id : Disml.Snowflake.t;
guild_id : Disml.Snowflake.t option;
position : int;
name : string;
}
val category_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> category
val sexp_of_category : category -> Ppx_sexp_conv_lib.Sexp.t
val category_to_yojson : category -> Yojson.Safe.json
val category_of_yojson : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val _ : category -> Yojson.Safe.json
val _ : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val category_of_yojson_exn : Yojson.Safe.json -> category
val _ : Yojson.Safe.json -> category
type t =
| Group of group
| Private of dm
| GuildText of guild_text
| GuildVoice of guild_voice
| Category of category
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
type channel_wrapper = {
id : Disml.Snowflake.t;
kind : int;
guild_id : Disml.Snowflake.t option;
position : int option;
name : string option;
topic : string option;
nsfw : bool option;
last_message_id : Disml.Snowflake.t option;
bitrate : int option;
user_limit : int option;
slow_mode_timeout : int option;
recipients : Disml.User_t.t list option;
icon : string option;
owner_id : Disml.Snowflake.t option;
application_id : Disml.Snowflake.t option;
category_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
}
val channel_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> channel_wrapper
val sexp_of_channel_wrapper : channel_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val channel_wrapper_to_yojson : channel_wrapper -> Yojson.Safe.json
val channel_wrapper_of_yojson : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val _ : channel_wrapper -> Yojson.Safe.json
val _ : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val channel_wrapper_of_yojson_exn : Yojson.Safe.json -> channel_wrapper
val _ : Yojson.Safe.json -> channel_wrapper
val unwrap_as_guild_text : channel_wrapper -> guild_text
val unwrap_as_guild_voice : channel_wrapper -> guild_voice
val unwrap_as_dm : channel_wrapper -> dm
val unwrap_as_group : channel_wrapper -> group
val unwrap_as_category : channel_wrapper -> category
val wrap : channel_wrapper -> t
val get_id : t -> Disml.Snowflake.t
val say : content:string -> t -> Disml.Message_t.t Async.Deferred.Or_error.t
val send_message : ?⁠embed:Yojson.Safe.json -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Disml.Message_t.t Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val get_message : id:Disml.Snowflake.t -> t -> Disml.Message_t.t Async.Deferred.Or_error.t
val get_messages : ?⁠mode:[ `Before | `After | `Around ] -> ?⁠id:Disml.Snowflake.t -> ?⁠limit:int -> t -> Disml.Message_t.t list Async.Deferred.Or_error.t
val broadcast_typing : t -> unit Async.Deferred.Or_error.t
val get_pins : t -> Disml.Message_t.t list Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__Channel_t/.dune-keep b/docs/disml/Disml__Channel_t/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Channel_t/index.html b/docs/disml/Disml__Channel_t/index.html new file mode 100644 index 0000000..a3199ac --- /dev/null +++ b/docs/disml/Disml__Channel_t/index.html @@ -0,0 +1,2 @@ + +Disml__Channel_t (disml.Disml__Channel_t)

Module Disml__Channel_t

exception Invalid_channel of Yojson.Safe.json
type group = {
id : Disml.Snowflake.t;
last_message_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
icon : string option;
name : string option;
owner_id : Disml.Snowflake.t;
recipients : Disml.User_t.t list;
}
val group_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> group
val sexp_of_group : group -> Ppx_sexp_conv_lib.Sexp.t
val group_to_yojson : group -> Yojson.Safe.json
val group_of_yojson : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val _ : group -> Yojson.Safe.json
val _ : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val group_of_yojson_exn : Yojson.Safe.json -> group
val _ : Yojson.Safe.json -> group
type dm = {
id : Disml.Snowflake.t;
last_message_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
}
val dm_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> dm
val sexp_of_dm : dm -> Ppx_sexp_conv_lib.Sexp.t
val dm_to_yojson : dm -> Yojson.Safe.json
val dm_of_yojson : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val _ : dm -> Yojson.Safe.json
val _ : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val dm_of_yojson_exn : Yojson.Safe.json -> dm
val _ : Yojson.Safe.json -> dm
type guild_text = {
id : Disml.Snowflake.t;
last_message_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
category_id : Disml.Snowflake.t option;
guild_id : Disml.Snowflake.t option;
name : string;
position : int;
topic : string option;
nsfw : bool;
slow_mode_timeout : int option;
}
val guild_text_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_text
val sexp_of_guild_text : guild_text -> Ppx_sexp_conv_lib.Sexp.t
val guild_text_to_yojson : guild_text -> Yojson.Safe.json
val guild_text_of_yojson : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val _ : guild_text -> Yojson.Safe.json
val _ : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val guild_text_of_yojson_exn : Yojson.Safe.json -> guild_text
val _ : Yojson.Safe.json -> guild_text
type guild_voice = {
id : Disml.Snowflake.t;
category_id : Disml.Snowflake.t option;
guild_id : Disml.Snowflake.t option;
name : string;
position : int;
user_limit : int;
bitrate : int option;
}
val guild_voice_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_voice
val sexp_of_guild_voice : guild_voice -> Ppx_sexp_conv_lib.Sexp.t
val guild_voice_to_yojson : guild_voice -> Yojson.Safe.json
val guild_voice_of_yojson : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val _ : guild_voice -> Yojson.Safe.json
val _ : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val guild_voice_of_yojson_exn : Yojson.Safe.json -> guild_voice
val _ : Yojson.Safe.json -> guild_voice
type category = {
id : Disml.Snowflake.t;
guild_id : Disml.Snowflake.t option;
position : int;
name : string;
}
val category_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> category
val sexp_of_category : category -> Ppx_sexp_conv_lib.Sexp.t
val category_to_yojson : category -> Yojson.Safe.json
val category_of_yojson : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val _ : category -> Yojson.Safe.json
val _ : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val category_of_yojson_exn : Yojson.Safe.json -> category
val _ : Yojson.Safe.json -> category
type t =
| Group of group
| Private of dm
| GuildText of guild_text
| GuildVoice of guild_voice
| Category of category
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
type channel_wrapper = {
id : Disml.Snowflake.t;
kind : int;
guild_id : Disml.Snowflake.t option;
position : int option;
name : string option;
topic : string option;
nsfw : bool option;
last_message_id : Disml.Snowflake.t option;
bitrate : int option;
user_limit : int option;
slow_mode_timeout : int option;
recipients : Disml.User_t.t list option;
icon : string option;
owner_id : Disml.Snowflake.t option;
application_id : Disml.Snowflake.t option;
category_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
}
val channel_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> channel_wrapper
val sexp_of_channel_wrapper : channel_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val channel_wrapper_to_yojson : channel_wrapper -> Yojson.Safe.json
val channel_wrapper_of_yojson : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val _ : channel_wrapper -> Yojson.Safe.json
val _ : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val channel_wrapper_of_yojson_exn : Yojson.Safe.json -> channel_wrapper
val _ : Yojson.Safe.json -> channel_wrapper
val unwrap_as_guild_text : channel_wrapper -> guild_text
val unwrap_as_guild_voice : channel_wrapper -> guild_voice
val unwrap_as_dm : channel_wrapper -> dm
val unwrap_as_group : channel_wrapper -> group
val unwrap_as_category : channel_wrapper -> category
val wrap : channel_wrapper -> t
val get_id : t -> Disml.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__Client/.dune-keep b/docs/disml/Disml__Client/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Client/index.html b/docs/disml/Disml__Client/index.html new file mode 100644 index 0000000..7c814d2 --- /dev/null +++ b/docs/disml/Disml__Client/index.html @@ -0,0 +1,2 @@ + +Disml__Client (disml.Disml__Client)

Module Disml__Client

include Disml.Config
val token : string Stdlib.ref
val hello : (Yojson.Safe.json -> unit) Stdlib.ref
val ready : (Yojson.Safe.json -> unit) Stdlib.ref
val resumed : (Yojson.Safe.json -> unit) Stdlib.ref
val invalid_session : (Yojson.Safe.json -> unit) Stdlib.ref
val channel_create : (Disml.Channel_t.t -> unit) Stdlib.ref
val channel_update : (Disml.Channel_t.t -> unit) Stdlib.ref
val channel_delete : (Disml.Channel_t.t -> unit) Stdlib.ref
val channel_pins_update : (Yojson.Safe.json -> unit) Stdlib.ref
val guild_create : (Disml.Guild_t.t -> unit) Stdlib.ref
val guild_update : (Disml.Guild_t.t -> unit) Stdlib.ref
val guild_delete : (Disml.Guild_t.t -> unit) Stdlib.ref
val member_ban : (Disml.Ban_t.t -> unit) Stdlib.ref
val member_unban : (Disml.Ban_t.t -> unit) Stdlib.ref
val guild_emojis_update : (Yojson.Safe.json -> unit) Stdlib.ref
val integrations_update : (Yojson.Safe.json -> unit) Stdlib.ref
val member_join : (Disml.Member_t.t -> unit) Stdlib.ref
val member_leave : (Disml.Member_t.member_wrapper -> unit) Stdlib.ref
val member_update : (Disml.Member_t.member_update -> unit) Stdlib.ref
val members_chunk : (Disml.Member_t.t list -> unit) Stdlib.ref
val role_create : (Disml.Role_t.t -> unit) Stdlib.ref
val role_update : (Disml.Role_t.t -> unit) Stdlib.ref
val role_delete : (Disml.Role_t.t -> unit) Stdlib.ref
val message_create : (Disml.Message_t.t -> unit) Stdlib.ref
val message_update : (Disml.Message_t.message_update -> unit) Stdlib.ref
val message_delete : (Disml.Snowflake.t -> Disml.Snowflake.t -> unit) Stdlib.ref
val message_bulk_delete : (Disml.Snowflake.t list -> unit) Stdlib.ref
val reaction_add : (Disml.Reaction_t.reaction_event -> unit) Stdlib.ref
val reaction_remove : (Disml.Reaction_t.reaction_event -> unit) Stdlib.ref
val reaction_bulk_remove : (Disml.Reaction_t.t list -> unit) Stdlib.ref
val presence_update : (Disml.Presence.t -> unit) Stdlib.ref
val typing_start : (Yojson.Safe.json -> unit) Stdlib.ref
val user_update : (Yojson.Safe.json -> unit) Stdlib.ref
val voice_state_update : (Yojson.Safe.json -> unit) Stdlib.ref
val voice_server_update : (Yojson.Safe.json -> unit) Stdlib.ref
val webhooks_update : (Yojson.Safe.json -> unit) Stdlib.ref
type t = {
sharder : Disml.Sharder.t;
token : string;
}
val start : ?⁠count:int -> string -> t Async_kernel__Deferred.t
val set_status : status:Yojson.Safe.json -> t -> Disml.Sharder.Shard.shard list Async.Deferred.t
val set_status_with : f:(Disml.Sharder.Shard.shard -> Yojson.Safe.json) -> t -> Disml.Sharder.Shard.shard list Async.Deferred.t
val request_guild_members : guild:Disml.Snowflake.t -> ?⁠query:string -> ?⁠limit:int -> t -> Disml.Sharder.Shard.shard list Async.Deferred.t
\ No newline at end of file diff --git a/docs/disml/Disml__Config/.dune-keep b/docs/disml/Disml__Config/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Config/index.html b/docs/disml/Disml__Config/index.html new file mode 100644 index 0000000..aafb712 --- /dev/null +++ b/docs/disml/Disml__Config/index.html @@ -0,0 +1,2 @@ + +Disml__Config (disml.Disml__Config)

Module Disml__Config

val token : string Stdlib.ref
val hello : (Yojson.Safe.json -> unit) Stdlib.ref
val ready : (Yojson.Safe.json -> unit) Stdlib.ref
val resumed : (Yojson.Safe.json -> unit) Stdlib.ref
val invalid_session : (Yojson.Safe.json -> unit) Stdlib.ref
val channel_create : (Disml.Channel_t.t -> unit) Stdlib.ref
val channel_update : (Disml.Channel_t.t -> unit) Stdlib.ref
val channel_delete : (Disml.Channel_t.t -> unit) Stdlib.ref
val channel_pins_update : (Yojson.Safe.json -> unit) Stdlib.ref
val guild_create : (Disml.Guild_t.t -> unit) Stdlib.ref
val guild_update : (Disml.Guild_t.t -> unit) Stdlib.ref
val guild_delete : (Disml.Guild_t.t -> unit) Stdlib.ref
val member_ban : (Disml.Ban_t.t -> unit) Stdlib.ref
val member_unban : (Disml.Ban_t.t -> unit) Stdlib.ref
val guild_emojis_update : (Yojson.Safe.json -> unit) Stdlib.ref
val integrations_update : (Yojson.Safe.json -> unit) Stdlib.ref
val member_join : (Disml.Member_t.t -> unit) Stdlib.ref
val member_leave : (Disml.Member_t.member_wrapper -> unit) Stdlib.ref
val member_update : (Disml.Member_t.member_update -> unit) Stdlib.ref
val members_chunk : (Disml.Member_t.t list -> unit) Stdlib.ref
val role_create : (Disml.Role_t.t -> unit) Stdlib.ref
val role_update : (Disml.Role_t.t -> unit) Stdlib.ref
val role_delete : (Disml.Role_t.t -> unit) Stdlib.ref
val message_create : (Disml.Message_t.t -> unit) Stdlib.ref
val message_update : (Disml.Message_t.message_update -> unit) Stdlib.ref
val message_delete : (Disml.Snowflake.t -> Disml.Snowflake.t -> unit) Stdlib.ref
val message_bulk_delete : (Disml.Snowflake.t list -> unit) Stdlib.ref
val reaction_add : (Disml.Reaction_t.reaction_event -> unit) Stdlib.ref
val reaction_remove : (Disml.Reaction_t.reaction_event -> unit) Stdlib.ref
val reaction_bulk_remove : (Disml.Reaction_t.t list -> unit) Stdlib.ref
val presence_update : (Disml.Presence.t -> unit) Stdlib.ref
val typing_start : (Yojson.Safe.json -> unit) Stdlib.ref
val user_update : (Yojson.Safe.json -> unit) Stdlib.ref
val voice_state_update : (Yojson.Safe.json -> unit) Stdlib.ref
val voice_server_update : (Yojson.Safe.json -> unit) Stdlib.ref
val webhooks_update : (Yojson.Safe.json -> unit) Stdlib.ref
\ No newline at end of file diff --git a/docs/disml/Disml__Embed/.dune-keep b/docs/disml/Disml__Embed/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Embed/index.html b/docs/disml/Disml__Embed/index.html new file mode 100644 index 0000000..f62c780 --- /dev/null +++ b/docs/disml/Disml__Embed/index.html @@ -0,0 +1,2 @@ + +Disml__Embed (disml.Disml__Embed)

Module Disml__Embed

val _ : footer -> Yojson.Safe.json
val _ : Yojson.Safe.json -> footer Ppx_deriving_yojson_runtime.error_or
val _ : Yojson.Safe.json -> footer
type image = {
url : string option;
proxy_url : string option;
height : int option;
width : int option;
}
val image_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> image
val sexp_of_image : image -> Ppx_sexp_conv_lib.Sexp.t
val image_to_yojson : image -> Yojson.Safe.json
val image_of_yojson : Yojson.Safe.json -> image Ppx_deriving_yojson_runtime.error_or
val _ : image -> Yojson.Safe.json
val _ : Yojson.Safe.json -> image Ppx_deriving_yojson_runtime.error_or
val image_of_yojson_exn : Yojson.Safe.json -> image
val _ : Yojson.Safe.json -> image
type video = {
url : string option;
height : int option;
width : int option;
}
val video_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> video
val sexp_of_video : video -> Ppx_sexp_conv_lib.Sexp.t
val video_to_yojson : video -> Yojson.Safe.json
val video_of_yojson : Yojson.Safe.json -> video Ppx_deriving_yojson_runtime.error_or
val _ : video -> Yojson.Safe.json
val _ : Yojson.Safe.json -> video Ppx_deriving_yojson_runtime.error_or
val video_of_yojson_exn : Yojson.Safe.json -> video
val _ : Yojson.Safe.json -> video
type provider = {
name : string option;
url : string option;
}
val provider_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> provider
val sexp_of_provider : provider -> Ppx_sexp_conv_lib.Sexp.t
val provider_to_yojson : provider -> Yojson.Safe.json
val provider_of_yojson : Yojson.Safe.json -> provider Ppx_deriving_yojson_runtime.error_or
val _ : provider -> Yojson.Safe.json
val _ : Yojson.Safe.json -> provider Ppx_deriving_yojson_runtime.error_or
val provider_of_yojson_exn : Yojson.Safe.json -> provider
val _ : Yojson.Safe.json -> provider
type author = {
name : string option;
url : string option;
icon_url : string option;
proxy_icon_url : string option;
}
val author_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> author
val sexp_of_author : author -> Ppx_sexp_conv_lib.Sexp.t
val author_to_yojson : author -> Yojson.Safe.json
val author_of_yojson : Yojson.Safe.json -> author Ppx_deriving_yojson_runtime.error_or
val _ : author -> Yojson.Safe.json
val _ : Yojson.Safe.json -> author Ppx_deriving_yojson_runtime.error_or
val author_of_yojson_exn : Yojson.Safe.json -> author
val _ : Yojson.Safe.json -> author
type field = {
name : string;
value : string;
inline : bool;
}
val field_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> field
val sexp_of_field : field -> Ppx_sexp_conv_lib.Sexp.t
val field_to_yojson : field -> Yojson.Safe.json
val field_of_yojson : Yojson.Safe.json -> field Ppx_deriving_yojson_runtime.error_or
val _ : field -> Yojson.Safe.json
val _ : Yojson.Safe.json -> field Ppx_deriving_yojson_runtime.error_or
val field_of_yojson_exn : Yojson.Safe.json -> field
val _ : Yojson.Safe.json -> field
type t = {
title : string option;
kind : string option;
description : string option;
url : string option;
timestamp : string option;
colour : int option;
footer : footer option;
image : image option;
thumbnail : image option;
video : video option;
provider : provider option;
author : author option;
fields : field list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Emoji/.dune-keep b/docs/disml/Disml__Emoji/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Emoji/index.html b/docs/disml/Disml__Emoji/index.html new file mode 100644 index 0000000..f23c60a --- /dev/null +++ b/docs/disml/Disml__Emoji/index.html @@ -0,0 +1,2 @@ + +Disml__Emoji (disml.Disml__Emoji)

Module Disml__Emoji

type partial_emoji = {
id : Disml.Snowflake.t option;
name : string;
}
val partial_emoji_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_emoji
val sexp_of_partial_emoji : partial_emoji -> Ppx_sexp_conv_lib.Sexp.t
val partial_emoji_to_yojson : partial_emoji -> Yojson.Safe.json
val partial_emoji_of_yojson : Yojson.Safe.json -> partial_emoji Ppx_deriving_yojson_runtime.error_or
val _ : partial_emoji -> Yojson.Safe.json
val _ : Yojson.Safe.json -> partial_emoji Ppx_deriving_yojson_runtime.error_or
val partial_emoji_of_yojson_exn : Yojson.Safe.json -> partial_emoji
val _ : Yojson.Safe.json -> partial_emoji
type t = {
id : Disml.Snowflake.t option;
name : string;
roles : Disml.Snowflake.t list;
user : Disml.User_t.t option;
require_colons : bool option;
managed : bool option;
animated : bool option;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Endpoints/.dune-keep b/docs/disml/Disml__Endpoints/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Endpoints/index.html b/docs/disml/Disml__Endpoints/index.html new file mode 100644 index 0000000..8917472 --- /dev/null +++ b/docs/disml/Disml__Endpoints/index.html @@ -0,0 +1,2 @@ + +Disml__Endpoints (disml.Disml__Endpoints)

Module Disml__Endpoints

val gateway : string
val gateway_bot : string
val channel : int -> string
val channel_messages : int -> string
val channel_message : int -> int -> string
val channel_reaction_me : int -> int -> string -> string
val channel_reaction : int -> int -> string -> int -> string
val channel_reactions_get : int -> int -> string -> string
val channel_reactions_delete : int -> int -> string
val channel_bulk_delete : int -> string
val channel_permission : int -> int -> string
val channel_permissions : int -> string
val channels : string
val channel_call_ring : int -> string
val channel_invites : int -> string
val channel_typing : int -> string
val channel_pins : int -> string
val channel_pin : int -> int -> string
val guilds : string
val guild : int -> string
val guild_channels : int -> string
val guild_members : int -> string
val guild_member : int -> int -> string
val guild_member_role : int -> int -> int -> string
val guild_bans : int -> string
val guild_ban : int -> int -> string
val guild_roles : int -> string
val guild_role : int -> int -> string
val guild_prune : int -> string
val guild_voice_regions : int -> string
val guild_invites : int -> string
val guild_integrations : int -> string
val guild_integration : int -> int -> string
val guild_integration_sync : int -> int -> string
val guild_embed : int -> string
val guild_emojis : int -> string
val guild_emoji : int -> int -> string
val webhooks_guild : int -> string
val webhooks_channel : int -> string
val webhook : int -> string
val webhook_token : int -> string -> string
val webhook_git : int -> string -> string
val webhook_slack : int -> string -> string
val user : int -> string
val me : string
val me_guilds : string
val me_guild : int -> string
val me_channels : string
val me_connections : string
val invite : string -> string
val regions : string
val application_information : string
val group_recipient : int -> int -> string
val guild_me_nick : int -> string
val guild_vanity_url : int -> string
val guild_audit_logs : int -> string
val cdn_embed_avatar : string -> string
val cdn_emoji : string -> string -> string
val cdn_icon : int -> string -> string -> string
val cdn_avatar : int -> string -> string -> string
val cdn_default_avatar : int -> string
\ No newline at end of file diff --git a/docs/disml/Disml__Event/.dune-keep b/docs/disml/Disml__Event/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Event/index.html b/docs/disml/Disml__Event/index.html new file mode 100644 index 0000000..42071ab --- /dev/null +++ b/docs/disml/Disml__Event/index.html @@ -0,0 +1,2 @@ + +Disml__Event (disml.Disml__Event)

Module Disml__Event

exception Invalid_event of string
type t =
| HELLO of Yojson.Safe.json
| READY of Yojson.Safe.json
| RESUMED of Yojson.Safe.json
| INVALID_SESSION of Yojson.Safe.json
| CHANNEL_CREATE of Disml.Channel_t.t
| CHANNEL_UPDATE of Disml.Channel_t.t
| CHANNEL_DELETE of Disml.Channel_t.t
| CHANNEL_PINS_UPDATE of Yojson.Safe.json
| GUILD_CREATE of Disml.Guild_t.t
| GUILD_UPDATE of Disml.Guild_t.t
| GUILD_DELETE of Disml.Guild_t.t
| GUILD_BAN_ADD of Disml.Ban_t.t
| GUILD_BAN_REMOVE of Disml.Ban_t.t
| GUILD_EMOJIS_UPDATE of Yojson.Safe.json
| GUILD_INTEGRATIONS_UPDATE of Yojson.Safe.json
| GUILD_MEMBER_ADD of Disml.Member_t.t
| GUILD_MEMBER_REMOVE of Disml.Member_t.member_wrapper
| GUILD_MEMBER_UPDATE of Disml.Member_t.member_update
| GUILD_MEMBERS_CHUNK of Disml.Member_t.t list
| GUILD_ROLE_CREATE of Disml.Role_t.t
| GUILD_ROLE_UPDATE of Disml.Role_t.t
| GUILD_ROLE_DELETE of Disml.Role_t.t
| MESSAGE_CREATE of Disml.Message_t.t
| MESSAGE_UPDATE of Disml.Message_t.message_update
| MESSAGE_DELETE of Disml.Snowflake.t * Disml.Snowflake.t
| MESSAGE_BULK_DELETE of Disml.Snowflake.t list
| MESSAGE_REACTION_ADD of Disml.Reaction_t.reaction_event
| MESSAGE_REACTION_REMOVE of Disml.Reaction_t.reaction_event
| MESSAGE_REACTION_REMOVE_ALL of Disml.Reaction_t.t list
| PRESENCE_UPDATE of Disml.Presence.t
| TYPING_START of Yojson.Safe.json
| USER_UPDATE of Yojson.Safe.json
| VOICE_STATE_UPDATE of Yojson.Safe.json
| VOICE_SERVER_UPDATE of Yojson.Safe.json
| WEBHOOKS_UPDATE of Yojson.Safe.json
val event_of_yojson : contents:Yojson.Safe.json -> string -> t
val dispatch : t -> unit
val handle_event : ev:string -> Yojson.Safe.json -> unit
\ No newline at end of file diff --git a/docs/disml/Disml__Guild/.dune-keep b/docs/disml/Disml__Guild/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Guild/index.html b/docs/disml/Disml__Guild/index.html new file mode 100644 index 0000000..fb8d88e --- /dev/null +++ b/docs/disml/Disml__Guild/index.html @@ -0,0 +1,2 @@ + +Disml__Guild (disml.Disml__Guild)

Module Disml__Guild

include module type of Disml.Guild_t
type pre = {
id : Disml.Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Disml.Snowflake.t;
region : string;
afk_channel_id : Disml.Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Disml.Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Disml.Role_t.role list;
emojis : Disml.Emoji.t list;
features : string list;
mfa_level : int;
application_id : Disml.Snowflake.t option;
widget_enabled : bool option;
widget_channel : Disml.Channel_t.channel_wrapper option;
system_channel : Disml.Channel_t.channel_wrapper option;
large : bool;
unavailable : bool;
member_count : int option;
members : Disml.Member_t.member list;
channels : Disml.Channel_t.channel_wrapper list;
}
val pre_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> pre
val sexp_of_pre : pre -> Ppx_sexp_conv_lib.Sexp.t
val pre_to_yojson : pre -> Yojson.Safe.json
val pre_of_yojson : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val _ : pre -> Yojson.Safe.json
val _ : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val pre_of_yojson_exn : Yojson.Safe.json -> pre
val _ : Yojson.Safe.json -> pre
type t = {
id : Disml.Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Disml.Snowflake.t;
region : string;
afk_channel_id : Disml.Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Disml.Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Disml.Role_t.t list;
emojis : Disml.Emoji.t list;
features : string list;
mfa_level : int;
application_id : Disml.Snowflake.t option;
widget_enabled : bool option;
widget_channel : Disml.Channel_t.t option;
system_channel : Disml.Channel_t.t option;
large : bool;
unavailable : bool;
member_count : int option;
members : Disml.Member_t.t list;
channels : Disml.Channel_t.t list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val wrap : pre -> t
val ban_user : id:Disml.Snowflake.t -> ?⁠reason:string -> ?⁠days:int -> t -> unit Async.Deferred.Or_error.t
val create_emoji : name:string -> image:string -> t -> Disml.Emoji.t Async.Deferred.Or_error.t
val create_role : name:string -> ?⁠colour:int -> ?⁠permissions:int -> ?⁠hoist:bool -> ?⁠mentionable:bool -> t -> Disml.Role_t.t Async.Deferred.Or_error.t
val create_channel : mode:[ `Text | `Voice | `Category ] -> name:string -> t -> Disml.Channel_t.t Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val get_ban : id:Disml.Snowflake.t -> t -> Disml.Ban_t.t Async.Deferred.Or_error.t
val get_bans : t -> Disml.Ban_t.t list Async.Deferred.Or_error.t
val get_channel : id:Disml.Snowflake.t -> t -> Disml.Channel_t.t Async.Deferred.Or_error.t
val get_emoji : id:Disml.Snowflake.t -> t -> Disml.Emoji.t Async.Deferred.Or_error.t
val get_invites : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_member : id:Disml.Snowflake.t -> t -> Disml.Member_t.t Async.Deferred.Or_error.t
val get_prune_count : days:int -> t -> int Async.Deferred.Or_error.t
val get_role : id:Disml.Snowflake.t -> t -> Disml.Role_t.t option
val get_webhooks : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val kick_user : id:Disml.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
val leave : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val list_voice_regions : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val prune : days:int -> t -> int Async.Deferred.Or_error.t
val request_members : t -> Disml.Member_t.t list Async.Deferred.Or_error.t
val set_afk_channel : id:Disml.Snowflake.t -> t -> t Async.Deferred.Or_error.t
val set_afk_timeout : timeout:int -> t -> t Async.Deferred.Or_error.t
val set_name : name:string -> t -> t Async.Deferred.Or_error.t
val set_icon : icon:string -> t -> t Async.Deferred.Or_error.t
val unban_user : id:Disml.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__Guild_t/.dune-keep b/docs/disml/Disml__Guild_t/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Guild_t/index.html b/docs/disml/Disml__Guild_t/index.html new file mode 100644 index 0000000..d0baea2 --- /dev/null +++ b/docs/disml/Disml__Guild_t/index.html @@ -0,0 +1,2 @@ + +Disml__Guild_t (disml.Disml__Guild_t)

Module Disml__Guild_t

type pre = {
id : Disml.Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Disml.Snowflake.t;
region : string;
afk_channel_id : Disml.Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Disml.Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Disml.Role_t.role list;
emojis : Disml.Emoji.t list;
features : string list;
mfa_level : int;
application_id : Disml.Snowflake.t option;
widget_enabled : bool option;
widget_channel : Disml.Channel_t.channel_wrapper option;
system_channel : Disml.Channel_t.channel_wrapper option;
large : bool;
unavailable : bool;
member_count : int option;
members : Disml.Member_t.member list;
channels : Disml.Channel_t.channel_wrapper list;
}
val pre_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> pre
val sexp_of_pre : pre -> Ppx_sexp_conv_lib.Sexp.t
val pre_to_yojson : pre -> Yojson.Safe.json
val pre_of_yojson : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val _ : pre -> Yojson.Safe.json
val _ : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val pre_of_yojson_exn : Yojson.Safe.json -> pre
val _ : Yojson.Safe.json -> pre
type t = {
id : Disml.Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Disml.Snowflake.t;
region : string;
afk_channel_id : Disml.Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Disml.Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Disml.Role_t.t list;
emojis : Disml.Emoji.t list;
features : string list;
mfa_level : int;
application_id : Disml.Snowflake.t option;
widget_enabled : bool option;
widget_channel : Disml.Channel_t.t option;
system_channel : Disml.Channel_t.t option;
large : bool;
unavailable : bool;
member_count : int option;
members : Disml.Member_t.t list;
channels : Disml.Channel_t.t list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val wrap : pre -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Http/.dune-keep b/docs/disml/Disml__Http/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Http/Base/index.html b/docs/disml/Disml__Http/Base/index.html new file mode 100644 index 0000000..2d7df8a --- /dev/null +++ b/docs/disml/Disml__Http/Base/index.html @@ -0,0 +1,2 @@ + +Base (disml.Disml__Http.Base)

Module Disml__Http.Base

exception Invalid_Method
val base_url : string
val process_url : string -> Uri.t
val process_request_body : Yojson.Safe.json -> Cohttp_async.Body.t
val process_request_headers : unit -> Cohttp.Header.t
val process_response : string -> (Cohttp_async.Response.t * Cohttp_async.Body.t) -> Yojson.Safe.json Async.Deferred.Or_error.t
val request : ?⁠body:Yojson.Safe.json -> ?⁠query:(string * string) list -> [> `DELETE | `GET | `PATCH | `POST | `PUT ] -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__Http/index.html b/docs/disml/Disml__Http/index.html new file mode 100644 index 0000000..8895fff --- /dev/null +++ b/docs/disml/Disml__Http/index.html @@ -0,0 +1,2 @@ + +Disml__Http (disml.Disml__Http)

Module Disml__Http

module Base : sig ... end
val get_gateway : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_gateway_bot : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val modify_channel : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_channel : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_messages : int -> int -> (string * int) -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_message : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_reaction : int -> int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_own_reaction : int -> int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_reaction : int -> int -> string -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_reactions : int -> int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_reactions : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_message : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val bulk_delete : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_channel_permissions : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel_invites : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_channel_invite : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_channel_permission : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val broadcast_typing : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_pinned_messages : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val pin_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val unpin_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val group_recipient_add : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val group_recipient_remove : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_emojis : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_emoji : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_emoji : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_emoji : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_emoji : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_guild : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_guild : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_guild : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_channels : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_guild_channel : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val modify_guild_channel_positions : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_member : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_members : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_member : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_member : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val remove_member : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val change_nickname : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_member_role : int -> int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val remove_member_role : int -> int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_bans : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_ban : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_ban_add : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_ban_remove : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_roles : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_role_add : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_roles_edit : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_role_edit : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_role_remove : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_prune_count : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_prune_start : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_voice_regions : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_invites : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_integrations : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_integration : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_integration : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_integration : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val sync_integration : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_embed : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_guild_embed : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_vanity_url : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_invite : string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_invite : string -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_current_user : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_current_user : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guilds : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val leave_guild : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_private_channels : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_dm : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_group_dm : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_connections : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_user : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_voice_regions : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_webhook : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel_webhooks : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_webhooks : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_webhook : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_webhook_with_token : int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_webhook : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_webhook_with_token : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_webhook : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_webhook_with_token : int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_slack_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_git_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_audit_logs : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__Member/.dune-keep b/docs/disml/Disml__Member/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Member/index.html b/docs/disml/Disml__Member/index.html new file mode 100644 index 0000000..b05b751 --- /dev/null +++ b/docs/disml/Disml__Member/index.html @@ -0,0 +1,2 @@ + +Disml__Member (disml.Disml__Member)

Module Disml__Member

include module type of Disml.Member_t
type partial_member = {
nick : string option;
roles : Disml.Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
}
val partial_member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_member
val sexp_of_partial_member : partial_member -> Ppx_sexp_conv_lib.Sexp.t
val partial_member_to_yojson : partial_member -> Yojson.Safe.json
val partial_member_of_yojson : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val _ : partial_member -> Yojson.Safe.json
val _ : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val partial_member_of_yojson_exn : Yojson.Safe.json -> partial_member
val _ : Yojson.Safe.json -> partial_member
type member = {
nick : string option;
roles : Disml.Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : Disml.User_t.t;
}
val member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member
val sexp_of_member : member -> Ppx_sexp_conv_lib.Sexp.t
val member_to_yojson : member -> Yojson.Safe.json
val member_of_yojson : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val _ : member -> Yojson.Safe.json
val _ : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val member_of_yojson_exn : Yojson.Safe.json -> member
val _ : Yojson.Safe.json -> member
type member_wrapper = {
guild_id : Disml.Snowflake.t;
user : Disml.User_t.t;
}
val member_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_wrapper
val sexp_of_member_wrapper : member_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val member_wrapper_to_yojson : member_wrapper -> Yojson.Safe.json
val member_wrapper_of_yojson : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val _ : member_wrapper -> Yojson.Safe.json
val _ : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val member_wrapper_of_yojson_exn : Yojson.Safe.json -> member_wrapper
val _ : Yojson.Safe.json -> member_wrapper
type member_update = {
guild_id : Disml.Snowflake.t;
roles : Disml.Snowflake.t list;
user : Disml.User_t.t;
nick : string option;
}
val member_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_update
val sexp_of_member_update : member_update -> Ppx_sexp_conv_lib.Sexp.t
val member_update_to_yojson : member_update -> Yojson.Safe.json
val member_update_of_yojson : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val _ : member_update -> Yojson.Safe.json
val _ : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val member_update_of_yojson_exn : Yojson.Safe.json -> member_update
val _ : Yojson.Safe.json -> member_update
type t = {
nick : string option;
roles : Disml.Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : Disml.User_t.t;
guild_id : Disml.Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val wrap : guild_id:Disml.Snowflake.t -> member -> t
val add_role : role:Disml.Role_t.t -> Disml.Member_t.t -> unit Async.Deferred.Or_error.t
val remove_role : role:Disml.Role_t.t -> Disml.Member_t.t -> unit Async.Deferred.Or_error.t
val ban : ?⁠reason:string -> ?⁠days:int -> Disml.Member_t.t -> unit Async.Deferred.Or_error.t
val kick : ?⁠reason:string -> Disml.Member_t.t -> unit Async.Deferred.Or_error.t
val mute : Disml.Member_t.t -> unit Async.Deferred.Or_error.t
val deafen : Disml.Member_t.t -> unit Async.Deferred.Or_error.t
val unmute : Disml.Member_t.t -> unit Async.Deferred.Or_error.t
val undeafen : Disml.Member_t.t -> unit Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__Member_t/.dune-keep b/docs/disml/Disml__Member_t/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Member_t/index.html b/docs/disml/Disml__Member_t/index.html new file mode 100644 index 0000000..0b11f2c --- /dev/null +++ b/docs/disml/Disml__Member_t/index.html @@ -0,0 +1,2 @@ + +Disml__Member_t (disml.Disml__Member_t)

Module Disml__Member_t

type partial_member = {
nick : string option;
roles : Disml.Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
}
val partial_member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_member
val sexp_of_partial_member : partial_member -> Ppx_sexp_conv_lib.Sexp.t
val partial_member_to_yojson : partial_member -> Yojson.Safe.json
val partial_member_of_yojson : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val _ : partial_member -> Yojson.Safe.json
val _ : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val partial_member_of_yojson_exn : Yojson.Safe.json -> partial_member
val _ : Yojson.Safe.json -> partial_member
type member = {
nick : string option;
roles : Disml.Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : Disml.User_t.t;
}
val member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member
val sexp_of_member : member -> Ppx_sexp_conv_lib.Sexp.t
val member_to_yojson : member -> Yojson.Safe.json
val member_of_yojson : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val _ : member -> Yojson.Safe.json
val _ : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val member_of_yojson_exn : Yojson.Safe.json -> member
val _ : Yojson.Safe.json -> member
type member_wrapper = {
guild_id : Disml.Snowflake.t;
user : Disml.User_t.t;
}
val member_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_wrapper
val sexp_of_member_wrapper : member_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val member_wrapper_to_yojson : member_wrapper -> Yojson.Safe.json
val member_wrapper_of_yojson : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val _ : member_wrapper -> Yojson.Safe.json
val _ : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val member_wrapper_of_yojson_exn : Yojson.Safe.json -> member_wrapper
val _ : Yojson.Safe.json -> member_wrapper
type member_update = {
guild_id : Disml.Snowflake.t;
roles : Disml.Snowflake.t list;
user : Disml.User_t.t;
nick : string option;
}
val member_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_update
val sexp_of_member_update : member_update -> Ppx_sexp_conv_lib.Sexp.t
val member_update_to_yojson : member_update -> Yojson.Safe.json
val member_update_of_yojson : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val _ : member_update -> Yojson.Safe.json
val _ : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val member_update_of_yojson_exn : Yojson.Safe.json -> member_update
val _ : Yojson.Safe.json -> member_update
type t = {
nick : string option;
roles : Disml.Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : Disml.User_t.t;
guild_id : Disml.Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val wrap : guild_id:Disml.Snowflake.t -> member -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Message/.dune-keep b/docs/disml/Disml__Message/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Message/index.html b/docs/disml/Disml__Message/index.html new file mode 100644 index 0000000..c9a7e04 --- /dev/null +++ b/docs/disml/Disml__Message/index.html @@ -0,0 +1,2 @@ + +Disml__Message (disml.Disml__Message)

Module Disml__Message

include module type of Disml.Message_t
type message_update = {
id : Disml.Snowflake.t;
author : Disml.User_t.t option;
channel_id : Disml.Snowflake.t;
member : Disml.Member_t.partial_member option;
guild_id : Disml.Snowflake.t option;
content : string option;
timestamp : string option;
editedimestamp : string option;
tts : bool option;
mention_everyone : bool option;
mentions : Disml.Snowflake.t list;
role_mentions : Disml.Snowflake.t list;
attachments : Disml.Attachment.t list;
embeds : Disml.Embed.t list;
reactions : Disml.Snowflake.t list;
nonce : Disml.Snowflake.t option;
pinned : bool option;
webhook_id : Disml.Snowflake.t option;
kind : int option;
}
val message_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> message_update
val sexp_of_message_update : message_update -> Ppx_sexp_conv_lib.Sexp.t
val message_update_to_yojson : message_update -> Yojson.Safe.json
val message_update_of_yojson : Yojson.Safe.json -> message_update Ppx_deriving_yojson_runtime.error_or
val _ : message_update -> Yojson.Safe.json
val _ : Yojson.Safe.json -> message_update Ppx_deriving_yojson_runtime.error_or
val message_update_of_yojson_exn : Yojson.Safe.json -> message_update
val _ : Yojson.Safe.json -> message_update
type t = {
id : Disml.Snowflake.t;
author : Disml.User_t.t;
channel_id : Disml.Snowflake.t;
member : Disml.Member_t.partial_member option;
guild_id : Disml.Snowflake.t option;
content : string;
timestamp : string;
editedimestamp : string option;
tts : bool;
mention_everyone : bool;
attachments : Disml.Attachment.t list;
embeds : Disml.Embed.t list;
reactions : Disml.Snowflake.t list;
nonce : Disml.Snowflake.t option;
pinned : bool;
webhook_id : Disml.Snowflake.t option;
kind : int;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val add_reaction : t -> Disml.Emoji.t -> unit Async.Deferred.Or_error.t
val remove_reaction : t -> Disml.Emoji.t -> Disml.User_t.t -> unit Async.Deferred.Or_error.t
val clear_reactions : t -> unit Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val pin : t -> unit Async.Deferred.Or_error.t
val unpin : t -> unit Async.Deferred.Or_error.t
val reply : t -> string -> t Async.Deferred.Or_error.t
val set_content : t -> string -> t Async.Deferred.Or_error.t
val set_embed : t -> Disml.Embed.t -> t Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__Message_t/.dune-keep b/docs/disml/Disml__Message_t/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Message_t/index.html b/docs/disml/Disml__Message_t/index.html new file mode 100644 index 0000000..acf0eb7 --- /dev/null +++ b/docs/disml/Disml__Message_t/index.html @@ -0,0 +1,2 @@ + +Disml__Message_t (disml.Disml__Message_t)

Module Disml__Message_t

type message_update = {
id : Disml.Snowflake.t;
author : Disml.User_t.t option;
channel_id : Disml.Snowflake.t;
member : Disml.Member_t.partial_member option;
guild_id : Disml.Snowflake.t option;
content : string option;
timestamp : string option;
editedimestamp : string option;
tts : bool option;
mention_everyone : bool option;
mentions : Disml.Snowflake.t list;
role_mentions : Disml.Snowflake.t list;
attachments : Disml.Attachment.t list;
embeds : Disml.Embed.t list;
reactions : Disml.Snowflake.t list;
nonce : Disml.Snowflake.t option;
pinned : bool option;
webhook_id : Disml.Snowflake.t option;
kind : int option;
}
val message_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> message_update
val sexp_of_message_update : message_update -> Ppx_sexp_conv_lib.Sexp.t
val message_update_to_yojson : message_update -> Yojson.Safe.json
val message_update_of_yojson : Yojson.Safe.json -> message_update Ppx_deriving_yojson_runtime.error_or
val _ : message_update -> Yojson.Safe.json
val _ : Yojson.Safe.json -> message_update Ppx_deriving_yojson_runtime.error_or
val message_update_of_yojson_exn : Yojson.Safe.json -> message_update
val _ : Yojson.Safe.json -> message_update
type t = {
id : Disml.Snowflake.t;
author : Disml.User_t.t;
channel_id : Disml.Snowflake.t;
member : Disml.Member_t.partial_member option;
guild_id : Disml.Snowflake.t option;
content : string;
timestamp : string;
editedimestamp : string option;
tts : bool;
mention_everyone : bool;
attachments : Disml.Attachment.t list;
embeds : Disml.Embed.t list;
reactions : Disml.Snowflake.t list;
nonce : Disml.Snowflake.t option;
pinned : bool;
webhook_id : Disml.Snowflake.t option;
kind : int;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Opcode/.dune-keep b/docs/disml/Disml__Opcode/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Opcode/index.html b/docs/disml/Disml__Opcode/index.html new file mode 100644 index 0000000..af94661 --- /dev/null +++ b/docs/disml/Disml__Opcode/index.html @@ -0,0 +1,2 @@ + +Disml__Opcode (disml.Disml__Opcode)

Module Disml__Opcode

type t =
| DISPATCH
| HEARTBEAT
| IDENTIFY
| STATUS_UPDATE
| VOICE_STATE_UPDATE
| RESUME
| RECONNECT
| REQUEST_GUILD_MEMBERS
| INVALID_SESSION
| HELLO
| HEARTBEAT_ACK
exception Invalid_Opcode of int
val to_int : t -> int
val from_int : int -> t
val to_string : t -> string
\ No newline at end of file diff --git a/docs/disml/Disml__Presence/.dune-keep b/docs/disml/Disml__Presence/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Presence/index.html b/docs/disml/Disml__Presence/index.html new file mode 100644 index 0000000..9f69908 --- /dev/null +++ b/docs/disml/Disml__Presence/index.html @@ -0,0 +1,2 @@ + +Disml__Presence (disml.Disml__Presence)

Module Disml__Presence

type t = {
user : Disml.User_t.partial_user;
roles : Disml.Snowflake.t list;
game : Disml.Activity.t option;
guild_id : Disml.Snowflake.t;
status : string;
activities : Disml.Activity.t list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Reaction/.dune-keep b/docs/disml/Disml__Reaction/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Reaction/index.html b/docs/disml/Disml__Reaction/index.html new file mode 100644 index 0000000..109eb1e --- /dev/null +++ b/docs/disml/Disml__Reaction/index.html @@ -0,0 +1,2 @@ + +Disml__Reaction (disml.Disml__Reaction)

Module Disml__Reaction

include module type of Disml.Reaction_t
type reaction_event = {
user_id : Disml.Snowflake.t;
channel_id : Disml.Snowflake.t;
message_id : Disml.Snowflake.t;
guild_id : Disml.Snowflake.t option;
emoji : Disml.Emoji.partial_emoji;
}
val reaction_event_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> reaction_event
val sexp_of_reaction_event : reaction_event -> Ppx_sexp_conv_lib.Sexp.t
val reaction_event_to_yojson : reaction_event -> Yojson.Safe.json
val reaction_event_of_yojson : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val _ : reaction_event -> Yojson.Safe.json
val _ : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val reaction_event_of_yojson_exn : Yojson.Safe.json -> reaction_event
val _ : Yojson.Safe.json -> reaction_event
type t = {
count : int;
emoji : Disml.Emoji.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Reaction_t/.dune-keep b/docs/disml/Disml__Reaction_t/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Reaction_t/index.html b/docs/disml/Disml__Reaction_t/index.html new file mode 100644 index 0000000..0b9e12b --- /dev/null +++ b/docs/disml/Disml__Reaction_t/index.html @@ -0,0 +1,2 @@ + +Disml__Reaction_t (disml.Disml__Reaction_t)

Module Disml__Reaction_t

type reaction_event = {
user_id : Disml.Snowflake.t;
channel_id : Disml.Snowflake.t;
message_id : Disml.Snowflake.t;
guild_id : Disml.Snowflake.t option;
emoji : Disml.Emoji.partial_emoji;
}
val reaction_event_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> reaction_event
val sexp_of_reaction_event : reaction_event -> Ppx_sexp_conv_lib.Sexp.t
val reaction_event_to_yojson : reaction_event -> Yojson.Safe.json
val reaction_event_of_yojson : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val _ : reaction_event -> Yojson.Safe.json
val _ : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val reaction_event_of_yojson_exn : Yojson.Safe.json -> reaction_event
val _ : Yojson.Safe.json -> reaction_event
type t = {
count : int;
emoji : Disml.Emoji.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Rl/.dune-keep b/docs/disml/Disml__Rl/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Rl/RouteMap/Key/index.html b/docs/disml/Disml__Rl/RouteMap/Key/index.html new file mode 100644 index 0000000..f17811f --- /dev/null +++ b/docs/disml/Disml__Rl/RouteMap/Key/index.html @@ -0,0 +1,2 @@ + +Key (disml.Disml__Rl.RouteMap.Key)

Module RouteMap.Key

type t = Core.String.t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
type comparator_witness = Core_kernel__Map.Make(Core.String).Key.comparator_witness
val comparator : (t, comparator_witness) Core_kernel__.Comparator.comparator
\ No newline at end of file diff --git a/docs/disml/Disml__Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html b/docs/disml/Disml__Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html new file mode 100644 index 0000000..738ba1d --- /dev/null +++ b/docs/disml/Disml__Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html @@ -0,0 +1,2 @@ + +1-Key (disml.Disml__Rl.RouteMap.Provide_bin_io.1-Key)

Parameter Provide_bin_io.1-Key

val bin_t : Key.t Bin_prot.Type_class.t
val bin_read_t : Key.t Bin_prot.Read.reader
val __bin_read_t__ : (Core_kernel__.Import.int -> Key.t) Bin_prot.Read.reader
val bin_reader_t : Key.t Bin_prot.Type_class.reader
val bin_size_t : Key.t Bin_prot.Size.sizer
val bin_write_t : Key.t Bin_prot.Write.writer
val bin_writer_t : Key.t Bin_prot.Type_class.writer
val bin_shape_t : Bin_prot.Shape.t
\ No newline at end of file diff --git a/docs/disml/Disml__Rl/RouteMap/Provide_bin_io/index.html b/docs/disml/Disml__Rl/RouteMap/Provide_bin_io/index.html new file mode 100644 index 0000000..af5397f --- /dev/null +++ b/docs/disml/Disml__Rl/RouteMap/Provide_bin_io/index.html @@ -0,0 +1,2 @@ + +Provide_bin_io (disml.Disml__Rl.RouteMap.Provide_bin_io)

Module RouteMap.Provide_bin_io

Parameters

Key : sig ... end

Signature

val bin_shape_t : Bin_prot.Shape.t -> Bin_prot.Shape.t
val bin_size_t : ('a, 'a t) Bin_prot.Size.sizer1
val bin_write_t : ('a, 'a t) Bin_prot.Write.writer1
val bin_read_t : ('a, 'a t) Bin_prot.Read.reader1
val __bin_read_t__ : ('a, int -> 'a t) Bin_prot.Read.reader1
val bin_writer_t : ('a, 'a t) Bin_prot.Type_class.S1.writer
val bin_reader_t : ('a, 'a t) Bin_prot.Type_class.S1.reader
val bin_t : ('a, 'a t) Bin_prot.Type_class.S1.t
\ No newline at end of file diff --git a/docs/disml/Disml__Rl/RouteMap/Provide_hash/argument-1-Key/index.html b/docs/disml/Disml__Rl/RouteMap/Provide_hash/argument-1-Key/index.html new file mode 100644 index 0000000..1b4bb06 --- /dev/null +++ b/docs/disml/Disml__Rl/RouteMap/Provide_hash/argument-1-Key/index.html @@ -0,0 +1,2 @@ + +1-Key (disml.Disml__Rl.RouteMap.Provide_hash.1-Key)

Parameter Provide_hash.1-Key

val hash_fold_t : Base__.Hash.state -> Key.t -> Base__.Hash.state
\ No newline at end of file diff --git a/docs/disml/Disml__Rl/RouteMap/Provide_hash/index.html b/docs/disml/Disml__Rl/RouteMap/Provide_hash/index.html new file mode 100644 index 0000000..91f37c8 --- /dev/null +++ b/docs/disml/Disml__Rl/RouteMap/Provide_hash/index.html @@ -0,0 +1,2 @@ + +Provide_hash (disml.Disml__Rl.RouteMap.Provide_hash)

Module RouteMap.Provide_hash

Parameters

Key : sig ... end

Signature

val hash_fold_t : (Ppx_hash_lib.Std.Hash.state -> 'a -> Ppx_hash_lib.Std.Hash.state) -> Ppx_hash_lib.Std.Hash.state -> 'a t -> Ppx_hash_lib.Std.Hash.state
\ No newline at end of file diff --git a/docs/disml/Disml__Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html b/docs/disml/Disml__Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html new file mode 100644 index 0000000..c989295 --- /dev/null +++ b/docs/disml/Disml__Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html @@ -0,0 +1,2 @@ + +1-Key (disml.Disml__Rl.RouteMap.Provide_of_sexp.1-Key)

Parameter Provide_of_sexp.1-Key

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> Key.t
\ No newline at end of file diff --git a/docs/disml/Disml__Rl/RouteMap/Provide_of_sexp/index.html b/docs/disml/Disml__Rl/RouteMap/Provide_of_sexp/index.html new file mode 100644 index 0000000..2a228ec --- /dev/null +++ b/docs/disml/Disml__Rl/RouteMap/Provide_of_sexp/index.html @@ -0,0 +1,2 @@ + +Provide_of_sexp (disml.Disml__Rl.RouteMap.Provide_of_sexp)

Module RouteMap.Provide_of_sexp

Parameters

Key : sig ... end

Signature

val t_of_sexp : (Ppx_sexp_conv_lib.Sexp.t -> 'v_x__018_) -> Ppx_sexp_conv_lib.Sexp.t -> 'v_x__018_ t
\ No newline at end of file diff --git a/docs/disml/Disml__Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html b/docs/disml/Disml__Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html new file mode 100644 index 0000000..63656f1 --- /dev/null +++ b/docs/disml/Disml__Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html @@ -0,0 +1,2 @@ + +1-K (disml.Disml__Rl.RouteMap.Tree.Provide_of_sexp.1-K)

Parameter Provide_of_sexp.1-K

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> Key.t
\ No newline at end of file diff --git a/docs/disml/Disml__Rl/RouteMap/Tree/Provide_of_sexp/index.html b/docs/disml/Disml__Rl/RouteMap/Tree/Provide_of_sexp/index.html new file mode 100644 index 0000000..5b29382 --- /dev/null +++ b/docs/disml/Disml__Rl/RouteMap/Tree/Provide_of_sexp/index.html @@ -0,0 +1,2 @@ + +Provide_of_sexp (disml.Disml__Rl.RouteMap.Tree.Provide_of_sexp)

Module Tree.Provide_of_sexp

Parameters

K : sig ... end

Signature

val t_of_sexp : (Ppx_sexp_conv_lib.Sexp.t -> 'v_x__017_) -> Ppx_sexp_conv_lib.Sexp.t -> 'v_x__017_ t
\ No newline at end of file diff --git a/docs/disml/Disml__Rl/RouteMap/Tree/index.html b/docs/disml/Disml__Rl/RouteMap/Tree/index.html new file mode 100644 index 0000000..dbac647 --- /dev/null +++ b/docs/disml/Disml__Rl/RouteMap/Tree/index.html @@ -0,0 +1,2 @@ + +Tree (disml.Disml__Rl.RouteMap.Tree)

Module RouteMap.Tree

type 'a t = (Key.t, 'a, Key.comparator_witness) Core_kernel__.Map_intf.Tree.t
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist : (Key.t * 'a) list -> [ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error : (Key.t * 'a) list -> 'a t Base__.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold : (Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce : (Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array : (Key.t * 'a) array -> 'a t Base__.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_increasing_iterator_unchecked : len:int -> f:(int -> Key.t * 'a) -> 'a t
val of_increasing_sequence : (Key.t * 'a) Base__.Sequence.t -> 'a t Base__.Or_error.t
val of_iteri : iteri:(f:(key:Key.t -> data:'v -> unit) -> unit) -> [ `Duplicate_key of Key.t | `Ok of 'v t ]
val of_tree : 'a t -> 'a t
val of_hashtbl_exn : (Key.t, 'a) Core_kernel__.Hashtbl.t -> 'a t
val gen : Key.t Core_kernel__.Quickcheck.Generator.t -> 'a Core_kernel__.Quickcheck.Generator.t -> 'a t Core_kernel__.Quickcheck.Generator.t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t Base__.Map_intf.Or_duplicate.t
val add_exn : 'a t -> key:Key.t -> data:'a -> 'a t
val set : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val remove_multi : 'a list t -> Key.t -> 'a list t
val find_multi : 'a list t -> Key.t -> 'a list
val change : 'a t -> Key.t -> f:('a option -> 'a option) -> 'a t
val update : 'a t -> Key.t -> f:('a option -> 'a) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter_keys : 'a t -> f:(Key.t -> unit) -> unit
val iter : 'a t -> f:('a -> unit) -> unit
val iteri : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 : 'a t -> 'b t -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> unit) -> unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold2 : 'a t -> 'b t -> init:'c -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c -> 'c) -> 'c
val filter_keys : 'a t -> f:(Key.t -> bool) -> 'a t
val filter : 'a t -> f:('a -> bool) -> 'a t
val filteri : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val partition_mapi : 'a t -> f:(key:Key.t -> data:'a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partition_map : 'a t -> f:('a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partitioni_tf : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t * 'a t
val partition_tf : 'a t -> f:('a -> bool) -> 'a t * 'a t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : ?⁠key_order:[ `Decreasing | `Increasing ] -> 'a t -> (Key.t * 'a) list
val validate : name:(Key.t -> string) -> 'a Base__.Validate.check -> 'a t Base__.Validate.check
val merge : 'a t -> 'b t -> f:(key:Key.t -> [ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c option) -> 'c t
val symmetric_diff : 'a t -> 'a t -> data_equal:('a -> 'a -> bool) -> (Key.t, 'a) Base__.Map_intf.Symmetric_diff_element.t Base__.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val for_alli : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val existsi : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val count : 'a t -> f:('a -> bool) -> int
val counti : 'a t -> f:(key:Key.t -> data:'a -> bool) -> int
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val append : lower_part:'a t -> upper_part:'a t -> [ `Ok of 'a t | `Overlapping_key_ranges ]
val subrange : 'a t -> lower_bound:Key.t Base__.Maybe_bound.t -> upper_bound:Key.t Base__.Maybe_bound.t -> 'a t
val fold_range_inclusive : 'a t -> min:Key.t -> max:Key.t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist : 'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key : 'a t -> [ `Greater_or_equal_to | `Greater_than | `Less_or_equal_to | `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val nth_exn : 'a t -> int -> Key.t * 'a
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a t
val to_sequence : ?⁠order:[ `Decreasing_key | `Increasing_key ] -> ?⁠keys_greater_or_equal_to:Key.t -> ?⁠keys_less_or_equal_to:Key.t -> 'a t -> (Key.t * 'a) Base__.Sequence.t
val obs : Key.t Core_kernel__.Quickcheck.Observer.t -> 'v Core_kernel__.Quickcheck.Observer.t -> 'v t Core_kernel__.Quickcheck.Observer.t
val shrinker : Key.t Core_kernel__.Quickcheck.Shrinker.t -> 'v Core_kernel__.Quickcheck.Shrinker.t -> 'v t Core_kernel__.Quickcheck.Shrinker.t
module Provide_of_sexp : functor (K : sig ... end) -> sig ... end
val t_of_sexp : (Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a) -> Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a t
val sexp_of_t : ('a -> Base__.Ppx_sexp_conv_lib.Sexp.t) -> 'a t -> Base__.Ppx_sexp_conv_lib.Sexp.t
\ No newline at end of file diff --git a/docs/disml/Disml__Rl/RouteMap/index.html b/docs/disml/Disml__Rl/RouteMap/index.html new file mode 100644 index 0000000..3970fb3 --- /dev/null +++ b/docs/disml/Disml__Rl/RouteMap/index.html @@ -0,0 +1,2 @@ + +RouteMap (disml.Disml__Rl.RouteMap)

Module Disml__Rl.RouteMap

module Key : sig ... end
module Tree : sig ... end
type 'a t = (Key.t, 'a, Key.comparator_witness) Core_kernel__.Map_intf.Map.t
val compare : ('a -> 'a -> Core_kernel__.Import.int) -> 'a t -> 'a t -> Core_kernel__.Import.int
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist : (Key.t * 'a) list -> [ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error : (Key.t * 'a) list -> 'a t Base__.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold : (Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce : (Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array : (Key.t * 'a) array -> 'a t Base__.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_increasing_iterator_unchecked : len:int -> f:(int -> Key.t * 'a) -> 'a t
val of_increasing_sequence : (Key.t * 'a) Base__.Sequence.t -> 'a t Base__.Or_error.t
val of_iteri : iteri:(f:(key:Key.t -> data:'v -> unit) -> unit) -> [ `Duplicate_key of Key.t | `Ok of 'v t ]
val of_tree : 'a Tree.t -> 'a t
val of_hashtbl_exn : (Key.t, 'a) Core_kernel__.Hashtbl.t -> 'a t
val gen : Key.t Core_kernel__.Quickcheck.Generator.t -> 'a Core_kernel__.Quickcheck.Generator.t -> 'a t Core_kernel__.Quickcheck.Generator.t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t Base__.Map_intf.Or_duplicate.t
val add_exn : 'a t -> key:Key.t -> data:'a -> 'a t
val set : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val remove_multi : 'a list t -> Key.t -> 'a list t
val find_multi : 'a list t -> Key.t -> 'a list
val change : 'a t -> Key.t -> f:('a option -> 'a option) -> 'a t
val update : 'a t -> Key.t -> f:('a option -> 'a) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter_keys : 'a t -> f:(Key.t -> unit) -> unit
val iter : 'a t -> f:('a -> unit) -> unit
val iteri : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 : 'a t -> 'b t -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> unit) -> unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold2 : 'a t -> 'b t -> init:'c -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c -> 'c) -> 'c
val filter_keys : 'a t -> f:(Key.t -> bool) -> 'a t
val filter : 'a t -> f:('a -> bool) -> 'a t
val filteri : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val partition_mapi : 'a t -> f:(key:Key.t -> data:'a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partition_map : 'a t -> f:('a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partitioni_tf : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t * 'a t
val partition_tf : 'a t -> f:('a -> bool) -> 'a t * 'a t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : ?⁠key_order:[ `Decreasing | `Increasing ] -> 'a t -> (Key.t * 'a) list
val validate : name:(Key.t -> string) -> 'a Base__.Validate.check -> 'a t Base__.Validate.check
val merge : 'a t -> 'b t -> f:(key:Key.t -> [ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c option) -> 'c t
val symmetric_diff : 'a t -> 'a t -> data_equal:('a -> 'a -> bool) -> (Key.t, 'a) Base__.Map_intf.Symmetric_diff_element.t Base__.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val for_alli : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val existsi : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val count : 'a t -> f:('a -> bool) -> int
val counti : 'a t -> f:(key:Key.t -> data:'a -> bool) -> int
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val append : lower_part:'a t -> upper_part:'a t -> [ `Ok of 'a t | `Overlapping_key_ranges ]
val subrange : 'a t -> lower_bound:Key.t Base__.Maybe_bound.t -> upper_bound:Key.t Base__.Maybe_bound.t -> 'a t
val fold_range_inclusive : 'a t -> min:Key.t -> max:Key.t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist : 'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key : 'a t -> [ `Greater_or_equal_to | `Greater_than | `Less_or_equal_to | `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val nth_exn : 'a t -> int -> Key.t * 'a
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a Tree.t
val to_sequence : ?⁠order:[ `Decreasing_key | `Increasing_key ] -> ?⁠keys_greater_or_equal_to:Key.t -> ?⁠keys_less_or_equal_to:Key.t -> 'a t -> (Key.t * 'a) Base__.Sequence.t
val obs : Key.t Core_kernel__.Quickcheck.Observer.t -> 'v Core_kernel__.Quickcheck.Observer.t -> 'v t Core_kernel__.Quickcheck.Observer.t
val shrinker : Key.t Core_kernel__.Quickcheck.Shrinker.t -> 'v Core_kernel__.Quickcheck.Shrinker.t -> 'v t Core_kernel__.Quickcheck.Shrinker.t
module Provide_of_sexp : functor (Key : sig ... end) -> sig ... end
module Provide_bin_io : functor (Key : sig ... end) -> sig ... end
module Provide_hash : functor (Key : sig ... end) -> sig ... end
val t_of_sexp : (Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a) -> Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a t
val sexp_of_t : ('a -> Base__.Ppx_sexp_conv_lib.Sexp.t) -> 'a t -> Base__.Ppx_sexp_conv_lib.Sexp.t
\ No newline at end of file diff --git a/docs/disml/Disml__Rl/index.html b/docs/disml/Disml__Rl/index.html new file mode 100644 index 0000000..98046ce --- /dev/null +++ b/docs/disml/Disml__Rl/index.html @@ -0,0 +1,2 @@ + +Disml__Rl (disml.Disml__Rl)

Module Disml__Rl

module RouteMap : module type of sig ... end
type rl = {
limit : int;
remaining : int;
reset : int;
}
type t = (rl, Core.read_write) Async.Mvar.t RouteMap.t
val rl_of_header : Cohttp.Header.t -> rl option
val default : rl
val empty : t
val update : 'a RouteMap.t -> string -> f:('a option -> 'a) -> 'a RouteMap.t
val find : 'a RouteMap.t -> string -> 'a option
val find_exn : 'a RouteMap.t -> string -> 'a
\ No newline at end of file diff --git a/docs/disml/Disml__Role/.dune-keep b/docs/disml/Disml__Role/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Role/index.html b/docs/disml/Disml__Role/index.html new file mode 100644 index 0000000..1847366 --- /dev/null +++ b/docs/disml/Disml__Role/index.html @@ -0,0 +1,2 @@ + +Disml__Role (disml.Disml__Role)

Module Disml__Role

include module type of Disml.Role_t
type role = {
id : Disml.Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
}
val role_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role
val sexp_of_role : role -> Ppx_sexp_conv_lib.Sexp.t
val role_to_yojson : role -> Yojson.Safe.json
val role_of_yojson : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val _ : role -> Yojson.Safe.json
val _ : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val role_of_yojson_exn : Yojson.Safe.json -> role
val _ : Yojson.Safe.json -> role
type role_update = {
role : role;
guild_id : Disml.Snowflake.t;
}
val role_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role_update
val sexp_of_role_update : role_update -> Ppx_sexp_conv_lib.Sexp.t
val role_update_to_yojson : role_update -> Yojson.Safe.json
val role_update_of_yojson : Yojson.Safe.json -> role_update Ppx_deriving_yojson_runtime.error_or
val _ : role_update -> Yojson.Safe.json
val _ : Yojson.Safe.json -> role_update Ppx_deriving_yojson_runtime.error_or
val role_update_of_yojson_exn : Yojson.Safe.json -> role_update
val _ : Yojson.Safe.json -> role_update
type t = {
id : Disml.Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
guild_id : Disml.Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val wrap : guild_id:Disml.Snowflake.t -> role -> t
val allow_mention : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val disallow_mention : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val hoist : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val set_colour : colour:int -> t -> Yojson.Safe.json Async.Deferred.Or_error.t
val set_name : name:string -> t -> Yojson.Safe.json Async.Deferred.Or_error.t
val unhoist : t -> Yojson.Safe.json Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__Role_t/.dune-keep b/docs/disml/Disml__Role_t/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Role_t/index.html b/docs/disml/Disml__Role_t/index.html new file mode 100644 index 0000000..f9426d9 --- /dev/null +++ b/docs/disml/Disml__Role_t/index.html @@ -0,0 +1,2 @@ + +Disml__Role_t (disml.Disml__Role_t)

Module Disml__Role_t

type role = {
id : Disml.Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
}
val role_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role
val sexp_of_role : role -> Ppx_sexp_conv_lib.Sexp.t
val role_to_yojson : role -> Yojson.Safe.json
val role_of_yojson : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val _ : role -> Yojson.Safe.json
val _ : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val role_of_yojson_exn : Yojson.Safe.json -> role
val _ : Yojson.Safe.json -> role
type role_update = {
role : role;
guild_id : Disml.Snowflake.t;
}
val role_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role_update
val sexp_of_role_update : role_update -> Ppx_sexp_conv_lib.Sexp.t
val role_update_to_yojson : role_update -> Yojson.Safe.json
val role_update_of_yojson : Yojson.Safe.json -> role_update Ppx_deriving_yojson_runtime.error_or
val _ : role_update -> Yojson.Safe.json
val _ : Yojson.Safe.json -> role_update Ppx_deriving_yojson_runtime.error_or
val role_update_of_yojson_exn : Yojson.Safe.json -> role_update
val _ : Yojson.Safe.json -> role_update
type t = {
id : Disml.Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
guild_id : Disml.Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val wrap : guild_id:Disml.Snowflake.t -> role -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Sharder/.dune-keep b/docs/disml/Disml__Sharder/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Sharder/Shard/index.html b/docs/disml/Disml__Sharder/Shard/index.html new file mode 100644 index 0000000..506b6b9 --- /dev/null +++ b/docs/disml/Disml__Sharder/Shard/index.html @@ -0,0 +1,2 @@ + +Shard (disml.Disml__Sharder.Shard)

Module Disml__Sharder.Shard

type shard
type 'a t = {
mutable state : 'a;
}
val heartbeat : shard -> shard Async.Deferred.t
val set_status : status:Yojson.Safe.json -> shard -> shard Async.Deferred.t
val request_guild_members : ?⁠query:string -> ?⁠limit:int -> guild:Disml.Snowflake.t -> shard -> shard Async.Deferred.t
val create : url:string -> shards:(int * int) -> unit -> shard Async.Deferred.t
\ No newline at end of file diff --git a/docs/disml/Disml__Sharder/index.html b/docs/disml/Disml__Sharder/index.html new file mode 100644 index 0000000..5039516 --- /dev/null +++ b/docs/disml/Disml__Sharder/index.html @@ -0,0 +1,2 @@ + +Disml__Sharder (disml.Disml__Sharder)

Module Disml__Sharder

exception Invalid_Payload
exception Failure_to_Establish_Heartbeat
type t
val start : ?⁠count:int -> unit -> t Async.Deferred.t
module Shard : sig ... end
val set_status : status:Yojson.Safe.json -> t -> Shard.shard list Async.Deferred.t
val set_status_with : f:(Shard.shard -> Yojson.Safe.json) -> t -> Shard.shard list Async.Deferred.t
val request_guild_members : ?⁠query:string -> ?⁠limit:int -> guild:Disml.Snowflake.t -> t -> Shard.shard list Async.Deferred.t
\ No newline at end of file diff --git a/docs/disml/Disml__Snowflake/.dune-keep b/docs/disml/Disml__Snowflake/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Snowflake/index.html b/docs/disml/Disml__Snowflake/index.html new file mode 100644 index 0000000..6bd4886 --- /dev/null +++ b/docs/disml/Disml__Snowflake/index.html @@ -0,0 +1,2 @@ + +Disml__Snowflake (disml.Disml__Snowflake)

Module Disml__Snowflake

type t = Core.Int.t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val of_yojson_exn : Yojson.Safe.json -> Core.Int.t
val of_yojson : Yojson.Safe.json -> (Core.Int.t, string) Core._result
val to_yojson : Core.Int.t -> Yojson.Safe.json
val timestamp : int -> int
val timestamp_iso : int -> string
\ No newline at end of file diff --git a/docs/disml/Disml__User/.dune-keep b/docs/disml/Disml__User/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__User/index.html b/docs/disml/Disml__User/index.html new file mode 100644 index 0000000..77892ad --- /dev/null +++ b/docs/disml/Disml__User/index.html @@ -0,0 +1,2 @@ + +Disml__User (disml.Disml__User)

Module Disml__User

include module type of Disml.User_t
type partial_user = {
id : Disml.Snowflake.t;
}
val partial_user_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_user
val sexp_of_partial_user : partial_user -> Ppx_sexp_conv_lib.Sexp.t
val partial_user_to_yojson : partial_user -> Yojson.Safe.json
val partial_user_of_yojson : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val _ : partial_user -> Yojson.Safe.json
val _ : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val partial_user_of_yojson_exn : Yojson.Safe.json -> partial_user
val _ : Yojson.Safe.json -> partial_user
type t = {
id : Disml.Snowflake.t;
username : string;
discriminator : string;
avatar : string option;
bot : bool;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val tag : t -> string
val mention : t -> string
val default_avatar : t -> string
val face : t -> string
\ No newline at end of file diff --git a/docs/disml/Disml__User_t/.dune-keep b/docs/disml/Disml__User_t/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__User_t/index.html b/docs/disml/Disml__User_t/index.html new file mode 100644 index 0000000..958ed83 --- /dev/null +++ b/docs/disml/Disml__User_t/index.html @@ -0,0 +1,2 @@ + +Disml__User_t (disml.Disml__User_t)

Module Disml__User_t

type partial_user = {
id : Disml.Snowflake.t;
}
val partial_user_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_user
val sexp_of_partial_user : partial_user -> Ppx_sexp_conv_lib.Sexp.t
val partial_user_to_yojson : partial_user -> Yojson.Safe.json
val partial_user_of_yojson : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val _ : partial_user -> Yojson.Safe.json
val _ : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val partial_user_of_yojson_exn : Yojson.Safe.json -> partial_user
val _ : Yojson.Safe.json -> partial_user
type t = {
id : Disml.Snowflake.t;
username : string;
discriminator : string;
avatar : string option;
bot : bool;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/index.html b/docs/disml/index.html new file mode 100644 index 0000000..015b45f --- /dev/null +++ b/docs/disml/index.html @@ -0,0 +1,2 @@ + +index (disml.index)

Library disml

The entry point of this library is the module: Disml.

\ No newline at end of file diff --git a/docs/highlight.pack.js b/docs/highlight.pack.js new file mode 100644 index 0000000..40370e8 --- /dev/null +++ b/docs/highlight.pack.js @@ -0,0 +1,2 @@ +/*! highlight.js v9.12.0 | BSD3 License | git.io/hljslicense */ +!function(e){var n="object"==typeof window&&window||"object"==typeof self&&self;"undefined"!=typeof exports?e(exports):n&&(n.hljs=e({}),"function"==typeof define&&define.amd&&define([],function(){return n.hljs}))}(function(e){function n(e){return e.replace(/&/g,"&").replace(//g,">")}function t(e){return e.nodeName.toLowerCase()}function r(e,n){var t=e&&e.exec(n);return t&&0===t.index}function a(e){return k.test(e)}function i(e){var n,t,r,i,o=e.className+" ";if(o+=e.parentNode?e.parentNode.className:"",t=B.exec(o))return w(t[1])?t[1]:"no-highlight";for(o=o.split(/\s+/),n=0,r=o.length;r>n;n++)if(i=o[n],a(i)||w(i))return i}function o(e){var n,t={},r=Array.prototype.slice.call(arguments,1);for(n in e)t[n]=e[n];return r.forEach(function(e){for(n in e)t[n]=e[n]}),t}function u(e){var n=[];return function r(e,a){for(var i=e.firstChild;i;i=i.nextSibling)3===i.nodeType?a+=i.nodeValue.length:1===i.nodeType&&(n.push({event:"start",offset:a,node:i}),a=r(i,a),t(i).match(/br|hr|img|input/)||n.push({event:"stop",offset:a,node:i}));return a}(e,0),n}function c(e,r,a){function i(){return e.length&&r.length?e[0].offset!==r[0].offset?e[0].offset"}function u(e){s+=""}function c(e){("start"===e.event?o:u)(e.node)}for(var l=0,s="",f=[];e.length||r.length;){var g=i();if(s+=n(a.substring(l,g[0].offset)),l=g[0].offset,g===e){f.reverse().forEach(u);do c(g.splice(0,1)[0]),g=i();while(g===e&&g.length&&g[0].offset===l);f.reverse().forEach(o)}else"start"===g[0].event?f.push(g[0].node):f.pop(),c(g.splice(0,1)[0])}return s+n(a.substr(l))}function l(e){return e.v&&!e.cached_variants&&(e.cached_variants=e.v.map(function(n){return o(e,{v:null},n)})),e.cached_variants||e.eW&&[o(e)]||[e]}function s(e){function n(e){return e&&e.source||e}function t(t,r){return new RegExp(n(t),"m"+(e.cI?"i":"")+(r?"g":""))}function r(a,i){if(!a.compiled){if(a.compiled=!0,a.k=a.k||a.bK,a.k){var o={},u=function(n,t){e.cI&&(t=t.toLowerCase()),t.split(" ").forEach(function(e){var t=e.split("|");o[t[0]]=[n,t[1]?Number(t[1]):1]})};"string"==typeof a.k?u("keyword",a.k):x(a.k).forEach(function(e){u(e,a.k[e])}),a.k=o}a.lR=t(a.l||/\w+/,!0),i&&(a.bK&&(a.b="\\b("+a.bK.split(" ").join("|")+")\\b"),a.b||(a.b=/\B|\b/),a.bR=t(a.b),a.e||a.eW||(a.e=/\B|\b/),a.e&&(a.eR=t(a.e)),a.tE=n(a.e)||"",a.eW&&i.tE&&(a.tE+=(a.e?"|":"")+i.tE)),a.i&&(a.iR=t(a.i)),null==a.r&&(a.r=1),a.c||(a.c=[]),a.c=Array.prototype.concat.apply([],a.c.map(function(e){return l("self"===e?a:e)})),a.c.forEach(function(e){r(e,a)}),a.starts&&r(a.starts,i);var c=a.c.map(function(e){return e.bK?"\\.?("+e.b+")\\.?":e.b}).concat([a.tE,a.i]).map(n).filter(Boolean);a.t=c.length?t(c.join("|"),!0):{exec:function(){return null}}}}r(e)}function f(e,t,a,i){function o(e,n){var t,a;for(t=0,a=n.c.length;a>t;t++)if(r(n.c[t].bR,e))return n.c[t]}function u(e,n){if(r(e.eR,n)){for(;e.endsParent&&e.parent;)e=e.parent;return e}return e.eW?u(e.parent,n):void 0}function c(e,n){return!a&&r(n.iR,e)}function l(e,n){var t=N.cI?n[0].toLowerCase():n[0];return e.k.hasOwnProperty(t)&&e.k[t]}function p(e,n,t,r){var a=r?"":I.classPrefix,i='',i+n+o}function h(){var e,t,r,a;if(!E.k)return n(k);for(a="",t=0,E.lR.lastIndex=0,r=E.lR.exec(k);r;)a+=n(k.substring(t,r.index)),e=l(E,r),e?(B+=e[1],a+=p(e[0],n(r[0]))):a+=n(r[0]),t=E.lR.lastIndex,r=E.lR.exec(k);return a+n(k.substr(t))}function d(){var e="string"==typeof E.sL;if(e&&!y[E.sL])return n(k);var t=e?f(E.sL,k,!0,x[E.sL]):g(k,E.sL.length?E.sL:void 0);return E.r>0&&(B+=t.r),e&&(x[E.sL]=t.top),p(t.language,t.value,!1,!0)}function b(){L+=null!=E.sL?d():h(),k=""}function v(e){L+=e.cN?p(e.cN,"",!0):"",E=Object.create(e,{parent:{value:E}})}function m(e,n){if(k+=e,null==n)return b(),0;var t=o(n,E);if(t)return t.skip?k+=n:(t.eB&&(k+=n),b(),t.rB||t.eB||(k=n)),v(t,n),t.rB?0:n.length;var r=u(E,n);if(r){var a=E;a.skip?k+=n:(a.rE||a.eE||(k+=n),b(),a.eE&&(k=n));do E.cN&&(L+=C),E.skip||(B+=E.r),E=E.parent;while(E!==r.parent);return r.starts&&v(r.starts,""),a.rE?0:n.length}if(c(n,E))throw new Error('Illegal lexeme "'+n+'" for mode "'+(E.cN||"")+'"');return k+=n,n.length||1}var N=w(e);if(!N)throw new Error('Unknown language: "'+e+'"');s(N);var R,E=i||N,x={},L="";for(R=E;R!==N;R=R.parent)R.cN&&(L=p(R.cN,"",!0)+L);var k="",B=0;try{for(var M,j,O=0;;){if(E.t.lastIndex=O,M=E.t.exec(t),!M)break;j=m(t.substring(O,M.index),M[0]),O=M.index+j}for(m(t.substr(O)),R=E;R.parent;R=R.parent)R.cN&&(L+=C);return{r:B,value:L,language:e,top:E}}catch(T){if(T.message&&-1!==T.message.indexOf("Illegal"))return{r:0,value:n(t)};throw T}}function g(e,t){t=t||I.languages||x(y);var r={r:0,value:n(e)},a=r;return t.filter(w).forEach(function(n){var t=f(n,e,!1);t.language=n,t.r>a.r&&(a=t),t.r>r.r&&(a=r,r=t)}),a.language&&(r.second_best=a),r}function p(e){return I.tabReplace||I.useBR?e.replace(M,function(e,n){return I.useBR&&"\n"===e?"
":I.tabReplace?n.replace(/\t/g,I.tabReplace):""}):e}function h(e,n,t){var r=n?L[n]:t,a=[e.trim()];return e.match(/\bhljs\b/)||a.push("hljs"),-1===e.indexOf(r)&&a.push(r),a.join(" ").trim()}function d(e){var n,t,r,o,l,s=i(e);a(s)||(I.useBR?(n=document.createElementNS("http://www.w3.org/1999/xhtml","div"),n.innerHTML=e.innerHTML.replace(/\n/g,"").replace(//g,"\n")):n=e,l=n.textContent,r=s?f(s,l,!0):g(l),t=u(n),t.length&&(o=document.createElementNS("http://www.w3.org/1999/xhtml","div"),o.innerHTML=r.value,r.value=c(t,u(o),l)),r.value=p(r.value),e.innerHTML=r.value,e.className=h(e.className,s,r.language),e.result={language:r.language,re:r.r},r.second_best&&(e.second_best={language:r.second_best.language,re:r.second_best.r}))}function b(e){I=o(I,e)}function v(){if(!v.called){v.called=!0;var e=document.querySelectorAll("pre code");E.forEach.call(e,d)}}function m(){addEventListener("DOMContentLoaded",v,!1),addEventListener("load",v,!1)}function N(n,t){var r=y[n]=t(e);r.aliases&&r.aliases.forEach(function(e){L[e]=n})}function R(){return x(y)}function w(e){return e=(e||"").toLowerCase(),y[e]||y[L[e]]}var E=[],x=Object.keys,y={},L={},k=/^(no-?highlight|plain|text)$/i,B=/\blang(?:uage)?-([\w-]+)\b/i,M=/((^(<[^>]+>|\t|)+|(?:\n)))/gm,C="",I={classPrefix:"hljs-",tabReplace:null,useBR:!1,languages:void 0};return e.highlight=f,e.highlightAuto=g,e.fixMarkup=p,e.highlightBlock=d,e.configure=b,e.initHighlighting=v,e.initHighlightingOnLoad=m,e.registerLanguage=N,e.listLanguages=R,e.getLanguage=w,e.inherit=o,e.IR="[a-zA-Z]\\w*",e.UIR="[a-zA-Z_]\\w*",e.NR="\\b\\d+(\\.\\d+)?",e.CNR="(-?)(\\b0[xX][a-fA-F0-9]+|(\\b\\d+(\\.\\d*)?|\\.\\d+)([eE][-+]?\\d+)?)",e.BNR="\\b(0b[01]+)",e.RSR="!|!=|!==|%|%=|&|&&|&=|\\*|\\*=|\\+|\\+=|,|-|-=|/=|/|:|;|<<|<<=|<=|<|===|==|=|>>>=|>>=|>=|>>>|>>|>|\\?|\\[|\\{|\\(|\\^|\\^=|\\||\\|=|\\|\\||~",e.BE={b:"\\\\[\\s\\S]",r:0},e.ASM={cN:"string",b:"'",e:"'",i:"\\n",c:[e.BE]},e.QSM={cN:"string",b:'"',e:'"',i:"\\n",c:[e.BE]},e.PWM={b:/\b(a|an|the|are|I'm|isn't|don't|doesn't|won't|but|just|should|pretty|simply|enough|gonna|going|wtf|so|such|will|you|your|they|like|more)\b/},e.C=function(n,t,r){var a=e.inherit({cN:"comment",b:n,e:t,c:[]},r||{});return a.c.push(e.PWM),a.c.push({cN:"doctag",b:"(?:TODO|FIXME|NOTE|BUG|XXX):",r:0}),a},e.CLCM=e.C("//","$"),e.CBCM=e.C("/\\*","\\*/"),e.HCM=e.C("#","$"),e.NM={cN:"number",b:e.NR,r:0},e.CNM={cN:"number",b:e.CNR,r:0},e.BNM={cN:"number",b:e.BNR,r:0},e.CSSNM={cN:"number",b:e.NR+"(%|em|ex|ch|rem|vw|vh|vmin|vmax|cm|mm|in|pt|pc|px|deg|grad|rad|turn|s|ms|Hz|kHz|dpi|dpcm|dppx)?",r:0},e.RM={cN:"regexp",b:/\//,e:/\/[gimuy]*/,i:/\n/,c:[e.BE,{b:/\[/,e:/\]/,r:0,c:[e.BE]}]},e.TM={cN:"title",b:e.IR,r:0},e.UTM={cN:"title",b:e.UIR,r:0},e.METHOD_GUARD={b:"\\.\\s*"+e.UIR,r:0},e});hljs.registerLanguage("ocaml",function(e){return{aliases:["ml"],k:{keyword:"and as assert asr begin class constraint do done downto else end exception external for fun function functor if in include inherit! inherit initializer land lazy let lor lsl lsr lxor match method!|10 method mod module mutable new object of open! open or private rec sig struct then to try type val! val virtual when while with parser value",built_in:"array bool bytes char exn|5 float int int32 int64 list lazy_t|5 nativeint|5 string unit in_channel out_channel ref",literal:"true false"},i:/\/\/|>>/,l:"[a-z_]\\w*!?",c:[{cN:"literal",b:"\\[(\\|\\|)?\\]|\\(\\)",r:0},e.C("\\(\\*","\\*\\)",{c:["self"]}),{cN:"symbol",b:"'[A-Za-z_](?!')[\\w']*"},{cN:"type",b:"`[A-Z][\\w']*"},{cN:"type",b:"\\b[A-Z][\\w']*",r:0},{b:"[a-z_]\\w*'[\\w']*",r:0},e.inherit(e.ASM,{cN:"string",r:0}),e.inherit(e.QSM,{i:null}),{cN:"number",b:"\\b(0[xX][a-fA-F0-9_]+[Lln]?|0[oO][0-7_]+[Lln]?|0[bB][01_]+[Lln]?|[0-9][0-9_]*([Lln]|(\\.[0-9_]*)?([eE][-+]?[0-9_]+)?)?)",r:0},{b:/[-=]>/}]}}); \ No newline at end of file diff --git a/docs/index.html b/docs/index.html new file mode 100644 index 0000000..44a891a --- /dev/null +++ b/docs/index.html @@ -0,0 +1,19 @@ + + + + index + + + + + +
+
+

OCaml package documentation

+
    +
  1. disml 0.2.0
    2. +
+
+
+ + \ No newline at end of file diff --git a/docs/odoc.css b/docs/odoc.css new file mode 100644 index 0000000..3d60b5d --- /dev/null +++ b/docs/odoc.css @@ -0,0 +1,767 @@ +@charset "UTF-8"; +/* Copyright (c) 2016 Daniel C. Bünzli. All rights reserved. + Distributed under the ISC license, see terms at the end of the file. + odoc 1.3.0 */ + +/* Fonts */ +@import url('https://fonts.googleapis.com/css?family=Fira+Mono:400,500'); +@import url('https://fonts.googleapis.com/css?family=Noticia+Text:400,400i,700'); +@import url('https://fonts.googleapis.com/css?family=Fira+Sans:400,400i,500,500i,600,600i,700,700i'); + + +/* Reset a few things. */ + +html, body, div, span, applet, object, iframe, h1, h2, h3, h4, h5, h6, p, blockquote, pre, a, abbr, acronym, address, big, cite, code, del, dfn, em, img, ins, kbd, q, s, samp, small, strike, strong, sub, sup, tt, var, b, u, i, center, dl, dt, dd, ol, ul, li, fieldset, form, label, legend, table, caption, tbody, tfoot, thead, tr, th, td, article, aside, canvas, details, embed, figure, figcaption, footer, header, hgroup, menu, nav, output, ruby, section, summary, time, mark, audio, video { + margin: 0; + padding: 0; + border: 0; + font-size: inherit; + font: inherit; + line-height: inherit; + vertical-align: baseline; + text-align: inherit; + color: inherit; + background: transparent; +} + +table { + border-collapse: collapse; + border-spacing: 0; +} + +*, *:before, *:after { + box-sizing: border-box; +} + +html { + font-size: 15px; +} + +body { + font-family: "Fira Sans", Helvetica, Arial, sans-serif; + text-align: left; + color: #333; + background: #FFFFFF; +} + +.content { + max-width: 90ex; + margin-left: calc(10vw + 20ex); + margin-right: 4ex; + margin-top: 20px; + margin-bottom: 50px; + font-family: "Noticia Text", Georgia, serif; + line-height: 1.5; +} + +.content>header { + margin-bottom: 30px; +} + +.content>header nav { + font-family: "Fira Sans", Helvetica, Arial, sans-serif; +} + +/* Basic markup elements */ + +b, strong { + font-weight: 500; +} + +i, em { + font-style: italic; +} + +sup { + vertical-align: super; +} + +sub { + vertical-align: sub; +} + +sup, sub { + font-size: 12px; + line-height: 0; + margin-left: 0.2ex; +} + +pre { + margin-top: 0.8em; + margin-bottom: 1.2em; +} + +p, ul, ol { + margin-top: 0.5em; + margin-bottom: 1em; +} +ul, ol { + list-style-position: outside +} + +ul>li { + margin-left: 22px; +} + +ol>li { + margin-left: 27.2px; +} + +li>*:first-child { + margin-top: 0 +} + +/* Text alignements, this should be forbidden. */ + +.left { + text-align: left; +} + +.right { + text-align: right; +} + +.center { + text-align: center; +} + +/* Links and anchors */ + +a { + text-decoration: none; + color: #2C5CBD; +} + +a:hover { + box-shadow: 0 1px 0 0 #2C5CBD; +} + +/* Linked highlight */ +*:target { + background-color: rgba(187,239,253,0.3) !important; + box-shadow: 0 0px 0 1px rgba(187,239,253,0.8) !important; + border-radius: 1px; +} + +*:hover>a.anchor { + visibility: visible; +} + +a.anchor:before { + content: "#" +} + +a.anchor:hover { + box-shadow: none; + text-decoration: none; + color: #555; +} + +a.anchor { + visibility: hidden; + position: absolute; + /* top: 0px; */ + /* margin-left: -3ex; */ + margin-left: -1.3em; + font-weight: normal; + font-style: normal; + padding-right: 0.4em; + padding-left: 0.4em; + /* To remain selectable */ + color: #d5d5d5; +} + +.spec > a.anchor { + margin-left: -2.3em; + padding-right: 0.9em; +} + +.xref-unresolved { + color: #2C5CBD; +} +.xref-unresolved:hover { + box-shadow: 0 1px 0 0 #CC6666; +} + +/* Section and document divisions. + Until at least 4.03 many of the modules of the stdlib start at .h7, + we restart the sequence there like h2 */ + +h1, h2, h3, h4, h5, h6, .h7, .h8, .h9, .h10 { + font-family: "Fira Sans", Helvetica, Arial, sans-serif; + font-weight: 400; + margin: 0.5em 0 0.5em 0; + padding-top: 0.1em; + line-height: 1.2; + overflow-wrap: break-word; +} + +h1 { + font-weight: 500; + font-size: 2.441em; + margin-top: 1.214em; +} + +h2 { + font-weight: 500; + font-size: 1.953em; + box-shadow: 0 1px 0 0 #ddd; +} + +h3 { + font-size: 1.563em; +} + +h4 { + font-size: 1.25em; +} + +small, .font_small { + font-size: 0.8em; +} + +h1 code, h1 tt { + font-size: inherit; + font-weight: inherit; +} + +h2 code, h2 tt { + font-size: inherit; + font-weight: inherit; +} + +h3 code, h3 tt { + font-size: inherit; + font-weight: inherit; +} + +h4 code, h4 tt { + font-size: inherit; + font-weight: inherit; +} + +/* Preformatted and code */ + +tt, code, pre { + font-family: "Fira Code", "Fira Mono", courier; + font-weight: 400; +} + +pre { + padding: 0.1em; + border: 1px solid #eee; + border-radius: 5px; + overflow-x: auto; +} + +p code, li code { + background-color: #f6f8fa; + color: #0d2b3e; + border-radius: 3px; + padding: 0 0.3ex; +} + +p a > code { + color: #2C5CBD; +} + +/* Code blocks (e.g. Examples) */ + +pre code { + font-size: 0.893rem; +} + +/* Code lexemes */ + +.keyword { + font-weight: 700; +} + +/* Module member specification */ + +.spec:not(.include), .spec.include details summary { + background-color: #f6f8fa; + border-radius: 3px; + border-left: 4px solid #5c9cf5; + border-right: 5px solid transparent; + padding: 0.35em 0.5em; +} + +.spec.include details summary:hover { + background-color: #ebeff2; +} + +dl, div.spec, .doc, aside { + margin-bottom: 20px; +} + +/* Indent the second line in multiline spec definitions. */ +.spec:not(.type) > code { + display: block; + padding-left: 4ex; + text-indent: -4ex; +} + +.spec.exception > code { + display: inline-block; +} + +dl > dd { + padding: 0.5em; +} + +dd> :first-child { + margin-top: 0; +} + +dl:last-child, dd> :last-child, aside:last-child, article:last-child { + margin-bottom: 0; +} + +dt+dt { + margin-top: 15px; +} + +section+section, section > header + dl { + margin-top: 25px; +} + +.spec.type .variant { + margin-left: 2ch; +} +.spec.type .variant p { + margin: 0; + font-style: italic; +} + +div.def { + margin-top: 0; + text-indent: -2ex; + padding-left: 2ex; +} + +div.def+div.doc { + margin-left: 1ex; + margin-top: 2.5px +} + +div.doc>*:first-child { + margin-top: 0; +} + +/* The elements other than heading should be wrapped in