From 8fc7e259c365c6a84b216b7548b87bc2a96d6868 Mon Sep 17 00:00:00 2001 From: Matias Goldfeld <2000matu@gmail.com> Date: Wed, 27 Jan 2021 17:15:05 -0500 Subject: Added message_reference functionality --- .gitignore | 4 +- disml.install | 267 --------------------------------- lib/http/http.ml | 8 +- lib/models/channel/message/message.ml | 5 +- lib/models/channel/message/message.mli | 3 +- lib/models/id/channel_id.ml | 6 +- lib/models/id/channel_id.mli | 1 + 7 files changed, 18 insertions(+), 276 deletions(-) delete mode 100644 disml.install diff --git a/.gitignore b/.gitignore index 297e7e3..0fa7ebe 100644 --- a/.gitignore +++ b/.gitignore @@ -1,2 +1,4 @@ .merlin -_build/ \ No newline at end of file +_build/ +disml.install +.vscode/ \ No newline at end of file diff --git a/disml.install b/disml.install deleted file mode 100644 index 3ac1a26..0000000 --- a/disml.install +++ /dev/null @@ -1,267 +0,0 @@ -lib: [ - "_build/install/default/lib/disml/META" {"META"} - "_build/install/default/lib/disml/activity.ml" {"activity.ml"} - "_build/install/default/lib/disml/activity.mli" {"activity.mli"} - "_build/install/default/lib/disml/attachment.ml" {"attachment.ml"} - "_build/install/default/lib/disml/attachment.mli" {"attachment.mli"} - "_build/install/default/lib/disml/ban.ml" {"ban.ml"} - "_build/install/default/lib/disml/ban.mli" {"ban.mli"} - "_build/install/default/lib/disml/ban_t.ml" {"ban_t.ml"} - "_build/install/default/lib/disml/ban_t.mli" {"ban_t.mli"} - "_build/install/default/lib/disml/channel.ml" {"channel.ml"} - "_build/install/default/lib/disml/channel.mli" {"channel.mli"} - "_build/install/default/lib/disml/channel_id.ml" {"channel_id.ml"} - "_build/install/default/lib/disml/channel_id.mli" {"channel_id.mli"} - "_build/install/default/lib/disml/channel_id_t.ml" {"channel_id_t.ml"} - "_build/install/default/lib/disml/channel_id_t.mli" {"channel_id_t.mli"} - "_build/install/default/lib/disml/channel_t.ml" {"channel_t.ml"} - "_build/install/default/lib/disml/channel_t.mli" {"channel_t.mli"} - "_build/install/default/lib/disml/client.ml" {"client.ml"} - "_build/install/default/lib/disml/client.mli" {"client.mli"} - "_build/install/default/lib/disml/client_options.ml" {"client_options.ml"} - "_build/install/default/lib/disml/client_options.mli" {"client_options.mli"} - "_build/install/default/lib/disml/disml.a" {"disml.a"} - "_build/install/default/lib/disml/disml.cma" {"disml.cma"} - "_build/install/default/lib/disml/disml.cmi" {"disml.cmi"} - "_build/install/default/lib/disml/disml.cmt" {"disml.cmt"} - "_build/install/default/lib/disml/disml.cmx" {"disml.cmx"} - "_build/install/default/lib/disml/disml.cmxa" {"disml.cmxa"} - "_build/install/default/lib/disml/disml.cmxs" {"disml.cmxs"} - "_build/install/default/lib/disml/disml.dune" {"disml.dune"} - "_build/install/default/lib/disml/disml.ml" {"disml.ml"} - "_build/install/default/lib/disml/disml__.cmi" {"disml__.cmi"} - "_build/install/default/lib/disml/disml__.cmt" {"disml__.cmt"} - "_build/install/default/lib/disml/disml__.cmx" {"disml__.cmx"} - "_build/install/default/lib/disml/disml__.ml" {"disml__.ml"} - "_build/install/default/lib/disml/disml__Activity.cmi" {"disml__Activity.cmi"} - "_build/install/default/lib/disml/disml__Activity.cmt" {"disml__Activity.cmt"} - "_build/install/default/lib/disml/disml__Activity.cmti" {"disml__Activity.cmti"} - "_build/install/default/lib/disml/disml__Activity.cmx" {"disml__Activity.cmx"} - "_build/install/default/lib/disml/disml__Attachment.cmi" {"disml__Attachment.cmi"} - "_build/install/default/lib/disml/disml__Attachment.cmt" {"disml__Attachment.cmt"} - "_build/install/default/lib/disml/disml__Attachment.cmti" {"disml__Attachment.cmti"} - "_build/install/default/lib/disml/disml__Attachment.cmx" {"disml__Attachment.cmx"} - "_build/install/default/lib/disml/disml__Ban.cmi" {"disml__Ban.cmi"} - "_build/install/default/lib/disml/disml__Ban.cmt" {"disml__Ban.cmt"} - "_build/install/default/lib/disml/disml__Ban.cmti" {"disml__Ban.cmti"} - "_build/install/default/lib/disml/disml__Ban.cmx" {"disml__Ban.cmx"} - "_build/install/default/lib/disml/disml__Ban_t.cmi" {"disml__Ban_t.cmi"} - "_build/install/default/lib/disml/disml__Ban_t.cmt" {"disml__Ban_t.cmt"} - "_build/install/default/lib/disml/disml__Ban_t.cmti" {"disml__Ban_t.cmti"} - "_build/install/default/lib/disml/disml__Ban_t.cmx" {"disml__Ban_t.cmx"} - "_build/install/default/lib/disml/disml__Channel.cmi" {"disml__Channel.cmi"} - "_build/install/default/lib/disml/disml__Channel.cmt" {"disml__Channel.cmt"} - "_build/install/default/lib/disml/disml__Channel.cmti" {"disml__Channel.cmti"} - "_build/install/default/lib/disml/disml__Channel.cmx" {"disml__Channel.cmx"} - "_build/install/default/lib/disml/disml__Channel_id.cmi" {"disml__Channel_id.cmi"} - "_build/install/default/lib/disml/disml__Channel_id.cmt" {"disml__Channel_id.cmt"} - "_build/install/default/lib/disml/disml__Channel_id.cmti" {"disml__Channel_id.cmti"} - "_build/install/default/lib/disml/disml__Channel_id.cmx" {"disml__Channel_id.cmx"} - "_build/install/default/lib/disml/disml__Channel_id_t.cmi" {"disml__Channel_id_t.cmi"} - "_build/install/default/lib/disml/disml__Channel_id_t.cmt" {"disml__Channel_id_t.cmt"} - "_build/install/default/lib/disml/disml__Channel_id_t.cmti" {"disml__Channel_id_t.cmti"} - "_build/install/default/lib/disml/disml__Channel_id_t.cmx" {"disml__Channel_id_t.cmx"} - "_build/install/default/lib/disml/disml__Channel_t.cmi" {"disml__Channel_t.cmi"} - "_build/install/default/lib/disml/disml__Channel_t.cmt" {"disml__Channel_t.cmt"} - "_build/install/default/lib/disml/disml__Channel_t.cmti" {"disml__Channel_t.cmti"} - "_build/install/default/lib/disml/disml__Channel_t.cmx" {"disml__Channel_t.cmx"} - "_build/install/default/lib/disml/disml__Client.cmi" {"disml__Client.cmi"} - "_build/install/default/lib/disml/disml__Client.cmt" {"disml__Client.cmt"} - "_build/install/default/lib/disml/disml__Client.cmti" {"disml__Client.cmti"} - "_build/install/default/lib/disml/disml__Client.cmx" {"disml__Client.cmx"} - "_build/install/default/lib/disml/disml__Client_options.cmi" {"disml__Client_options.cmi"} - "_build/install/default/lib/disml/disml__Client_options.cmt" {"disml__Client_options.cmt"} - "_build/install/default/lib/disml/disml__Client_options.cmti" {"disml__Client_options.cmti"} - "_build/install/default/lib/disml/disml__Client_options.cmx" {"disml__Client_options.cmx"} - "_build/install/default/lib/disml/disml__Dispatch.cmi" {"disml__Dispatch.cmi"} - "_build/install/default/lib/disml/disml__Dispatch.cmt" {"disml__Dispatch.cmt"} - "_build/install/default/lib/disml/disml__Dispatch.cmti" {"disml__Dispatch.cmti"} - "_build/install/default/lib/disml/disml__Dispatch.cmx" {"disml__Dispatch.cmx"} - "_build/install/default/lib/disml/disml__Embed.cmi" {"disml__Embed.cmi"} - "_build/install/default/lib/disml/disml__Embed.cmt" {"disml__Embed.cmt"} - "_build/install/default/lib/disml/disml__Embed.cmti" {"disml__Embed.cmti"} - "_build/install/default/lib/disml/disml__Embed.cmx" {"disml__Embed.cmx"} - "_build/install/default/lib/disml/disml__Emoji.cmi" {"disml__Emoji.cmi"} - "_build/install/default/lib/disml/disml__Emoji.cmt" {"disml__Emoji.cmt"} - "_build/install/default/lib/disml/disml__Emoji.cmti" {"disml__Emoji.cmti"} - "_build/install/default/lib/disml/disml__Emoji.cmx" {"disml__Emoji.cmx"} - "_build/install/default/lib/disml/disml__Endpoints.cmi" {"disml__Endpoints.cmi"} - "_build/install/default/lib/disml/disml__Endpoints.cmt" {"disml__Endpoints.cmt"} - "_build/install/default/lib/disml/disml__Endpoints.cmti" {"disml__Endpoints.cmti"} - "_build/install/default/lib/disml/disml__Endpoints.cmx" {"disml__Endpoints.cmx"} - "_build/install/default/lib/disml/disml__Event.cmi" {"disml__Event.cmi"} - "_build/install/default/lib/disml/disml__Event.cmt" {"disml__Event.cmt"} - "_build/install/default/lib/disml/disml__Event.cmti" {"disml__Event.cmti"} - "_build/install/default/lib/disml/disml__Event.cmx" {"disml__Event.cmx"} - "_build/install/default/lib/disml/disml__Event_models.cmi" {"disml__Event_models.cmi"} - "_build/install/default/lib/disml/disml__Event_models.cmt" {"disml__Event_models.cmt"} - "_build/install/default/lib/disml/disml__Event_models.cmx" {"disml__Event_models.cmx"} - "_build/install/default/lib/disml/disml__Guild.cmi" {"disml__Guild.cmi"} - "_build/install/default/lib/disml/disml__Guild.cmt" {"disml__Guild.cmt"} - "_build/install/default/lib/disml/disml__Guild.cmti" {"disml__Guild.cmti"} - "_build/install/default/lib/disml/disml__Guild.cmx" {"disml__Guild.cmx"} - "_build/install/default/lib/disml/disml__Guild_id.cmi" {"disml__Guild_id.cmi"} - "_build/install/default/lib/disml/disml__Guild_id.cmt" {"disml__Guild_id.cmt"} - "_build/install/default/lib/disml/disml__Guild_id.cmti" {"disml__Guild_id.cmti"} - "_build/install/default/lib/disml/disml__Guild_id.cmx" {"disml__Guild_id.cmx"} - "_build/install/default/lib/disml/disml__Guild_id_t.cmi" {"disml__Guild_id_t.cmi"} - "_build/install/default/lib/disml/disml__Guild_id_t.cmt" {"disml__Guild_id_t.cmt"} - "_build/install/default/lib/disml/disml__Guild_id_t.cmti" {"disml__Guild_id_t.cmti"} - "_build/install/default/lib/disml/disml__Guild_id_t.cmx" {"disml__Guild_id_t.cmx"} - "_build/install/default/lib/disml/disml__Guild_t.cmi" {"disml__Guild_t.cmi"} - "_build/install/default/lib/disml/disml__Guild_t.cmt" {"disml__Guild_t.cmt"} - "_build/install/default/lib/disml/disml__Guild_t.cmti" {"disml__Guild_t.cmti"} - "_build/install/default/lib/disml/disml__Guild_t.cmx" {"disml__Guild_t.cmx"} - "_build/install/default/lib/disml/disml__Http.cmi" {"disml__Http.cmi"} - "_build/install/default/lib/disml/disml__Http.cmt" {"disml__Http.cmt"} - "_build/install/default/lib/disml/disml__Http.cmti" {"disml__Http.cmti"} - "_build/install/default/lib/disml/disml__Http.cmx" {"disml__Http.cmx"} - "_build/install/default/lib/disml/disml__Impl.cmi" {"disml__Impl.cmi"} - "_build/install/default/lib/disml/disml__Impl.cmt" {"disml__Impl.cmt"} - "_build/install/default/lib/disml/disml__Impl.cmx" {"disml__Impl.cmx"} - "_build/install/default/lib/disml/disml__Member.cmi" {"disml__Member.cmi"} - "_build/install/default/lib/disml/disml__Member.cmt" {"disml__Member.cmt"} - "_build/install/default/lib/disml/disml__Member.cmti" {"disml__Member.cmti"} - "_build/install/default/lib/disml/disml__Member.cmx" {"disml__Member.cmx"} - "_build/install/default/lib/disml/disml__Member_t.cmi" {"disml__Member_t.cmi"} - "_build/install/default/lib/disml/disml__Member_t.cmt" {"disml__Member_t.cmt"} - "_build/install/default/lib/disml/disml__Member_t.cmti" {"disml__Member_t.cmti"} - "_build/install/default/lib/disml/disml__Member_t.cmx" {"disml__Member_t.cmx"} - "_build/install/default/lib/disml/disml__Message.cmi" {"disml__Message.cmi"} - "_build/install/default/lib/disml/disml__Message.cmt" {"disml__Message.cmt"} - "_build/install/default/lib/disml/disml__Message.cmti" {"disml__Message.cmti"} - "_build/install/default/lib/disml/disml__Message.cmx" {"disml__Message.cmx"} - "_build/install/default/lib/disml/disml__Message_id.cmi" {"disml__Message_id.cmi"} - "_build/install/default/lib/disml/disml__Message_id.cmt" {"disml__Message_id.cmt"} - "_build/install/default/lib/disml/disml__Message_id.cmti" {"disml__Message_id.cmti"} - "_build/install/default/lib/disml/disml__Message_id.cmx" {"disml__Message_id.cmx"} - "_build/install/default/lib/disml/disml__Message_t.cmi" {"disml__Message_t.cmi"} - "_build/install/default/lib/disml/disml__Message_t.cmt" {"disml__Message_t.cmt"} - "_build/install/default/lib/disml/disml__Message_t.cmti" {"disml__Message_t.cmti"} - "_build/install/default/lib/disml/disml__Message_t.cmx" {"disml__Message_t.cmx"} - "_build/install/default/lib/disml/disml__Opcode.cmi" {"disml__Opcode.cmi"} - "_build/install/default/lib/disml/disml__Opcode.cmt" {"disml__Opcode.cmt"} - "_build/install/default/lib/disml/disml__Opcode.cmti" {"disml__Opcode.cmti"} - "_build/install/default/lib/disml/disml__Opcode.cmx" {"disml__Opcode.cmx"} - "_build/install/default/lib/disml/disml__Presence.cmi" {"disml__Presence.cmi"} - "_build/install/default/lib/disml/disml__Presence.cmt" {"disml__Presence.cmt"} - "_build/install/default/lib/disml/disml__Presence.cmti" {"disml__Presence.cmti"} - "_build/install/default/lib/disml/disml__Presence.cmx" {"disml__Presence.cmx"} - "_build/install/default/lib/disml/disml__Reaction.cmi" {"disml__Reaction.cmi"} - "_build/install/default/lib/disml/disml__Reaction.cmt" {"disml__Reaction.cmt"} - "_build/install/default/lib/disml/disml__Reaction.cmti" {"disml__Reaction.cmti"} - "_build/install/default/lib/disml/disml__Reaction.cmx" {"disml__Reaction.cmx"} - "_build/install/default/lib/disml/disml__Reaction_t.cmi" {"disml__Reaction_t.cmi"} - "_build/install/default/lib/disml/disml__Reaction_t.cmt" {"disml__Reaction_t.cmt"} - "_build/install/default/lib/disml/disml__Reaction_t.cmti" {"disml__Reaction_t.cmti"} - "_build/install/default/lib/disml/disml__Reaction_t.cmx" {"disml__Reaction_t.cmx"} - "_build/install/default/lib/disml/disml__Rl.cmi" {"disml__Rl.cmi"} - "_build/install/default/lib/disml/disml__Rl.cmt" {"disml__Rl.cmt"} - "_build/install/default/lib/disml/disml__Rl.cmti" {"disml__Rl.cmti"} - "_build/install/default/lib/disml/disml__Rl.cmx" {"disml__Rl.cmx"} - "_build/install/default/lib/disml/disml__Role.cmi" {"disml__Role.cmi"} - "_build/install/default/lib/disml/disml__Role.cmt" {"disml__Role.cmt"} - "_build/install/default/lib/disml/disml__Role.cmti" {"disml__Role.cmti"} - "_build/install/default/lib/disml/disml__Role.cmx" {"disml__Role.cmx"} - "_build/install/default/lib/disml/disml__Role_id.cmi" {"disml__Role_id.cmi"} - "_build/install/default/lib/disml/disml__Role_id.cmt" {"disml__Role_id.cmt"} - "_build/install/default/lib/disml/disml__Role_id.cmti" {"disml__Role_id.cmti"} - "_build/install/default/lib/disml/disml__Role_id.cmx" {"disml__Role_id.cmx"} - "_build/install/default/lib/disml/disml__Role_t.cmi" {"disml__Role_t.cmi"} - "_build/install/default/lib/disml/disml__Role_t.cmt" {"disml__Role_t.cmt"} - "_build/install/default/lib/disml/disml__Role_t.cmti" {"disml__Role_t.cmti"} - "_build/install/default/lib/disml/disml__Role_t.cmx" {"disml__Role_t.cmx"} - "_build/install/default/lib/disml/disml__S.cmi" {"disml__S.cmi"} - "_build/install/default/lib/disml/disml__S.cmt" {"disml__S.cmt"} - "_build/install/default/lib/disml/disml__S.cmx" {"disml__S.cmx"} - "_build/install/default/lib/disml/disml__Sharder.cmi" {"disml__Sharder.cmi"} - "_build/install/default/lib/disml/disml__Sharder.cmt" {"disml__Sharder.cmt"} - "_build/install/default/lib/disml/disml__Sharder.cmti" {"disml__Sharder.cmti"} - "_build/install/default/lib/disml/disml__Sharder.cmx" {"disml__Sharder.cmx"} - "_build/install/default/lib/disml/disml__Snowflake.cmi" {"disml__Snowflake.cmi"} - "_build/install/default/lib/disml/disml__Snowflake.cmt" {"disml__Snowflake.cmt"} - "_build/install/default/lib/disml/disml__Snowflake.cmti" {"disml__Snowflake.cmti"} - "_build/install/default/lib/disml/disml__Snowflake.cmx" {"disml__Snowflake.cmx"} - "_build/install/default/lib/disml/disml__User.cmi" {"disml__User.cmi"} - "_build/install/default/lib/disml/disml__User.cmt" {"disml__User.cmt"} - "_build/install/default/lib/disml/disml__User.cmti" {"disml__User.cmti"} - "_build/install/default/lib/disml/disml__User.cmx" {"disml__User.cmx"} - "_build/install/default/lib/disml/disml__User_id.cmi" {"disml__User_id.cmi"} - "_build/install/default/lib/disml/disml__User_id.cmt" {"disml__User_id.cmt"} - "_build/install/default/lib/disml/disml__User_id.cmti" {"disml__User_id.cmti"} - "_build/install/default/lib/disml/disml__User_id.cmx" {"disml__User_id.cmx"} - "_build/install/default/lib/disml/disml__User_id_t.cmi" {"disml__User_id_t.cmi"} - "_build/install/default/lib/disml/disml__User_id_t.cmt" {"disml__User_id_t.cmt"} - "_build/install/default/lib/disml/disml__User_id_t.cmti" {"disml__User_id_t.cmti"} - "_build/install/default/lib/disml/disml__User_id_t.cmx" {"disml__User_id_t.cmx"} - "_build/install/default/lib/disml/disml__User_t.cmi" {"disml__User_t.cmi"} - "_build/install/default/lib/disml/disml__User_t.cmt" {"disml__User_t.cmt"} - "_build/install/default/lib/disml/disml__User_t.cmti" {"disml__User_t.cmti"} - "_build/install/default/lib/disml/disml__User_t.cmx" {"disml__User_t.cmx"} - "_build/install/default/lib/disml/dispatch.ml" {"dispatch.ml"} - "_build/install/default/lib/disml/dispatch.mli" {"dispatch.mli"} - "_build/install/default/lib/disml/embed.ml" {"embed.ml"} - "_build/install/default/lib/disml/embed.mli" {"embed.mli"} - "_build/install/default/lib/disml/emoji.ml" {"emoji.ml"} - "_build/install/default/lib/disml/emoji.mli" {"emoji.mli"} - "_build/install/default/lib/disml/endpoints.ml" {"endpoints.ml"} - "_build/install/default/lib/disml/endpoints.mli" {"endpoints.mli"} - "_build/install/default/lib/disml/event.ml" {"event.ml"} - "_build/install/default/lib/disml/event.mli" {"event.mli"} - "_build/install/default/lib/disml/event_models.ml" {"event_models.ml"} - "_build/install/default/lib/disml/guild.ml" {"guild.ml"} - "_build/install/default/lib/disml/guild.mli" {"guild.mli"} - "_build/install/default/lib/disml/guild_id.ml" {"guild_id.ml"} - "_build/install/default/lib/disml/guild_id.mli" {"guild_id.mli"} - "_build/install/default/lib/disml/guild_id_t.ml" {"guild_id_t.ml"} - "_build/install/default/lib/disml/guild_id_t.mli" {"guild_id_t.mli"} - "_build/install/default/lib/disml/guild_t.ml" {"guild_t.ml"} - "_build/install/default/lib/disml/guild_t.mli" {"guild_t.mli"} - "_build/install/default/lib/disml/http.ml" {"http.ml"} - "_build/install/default/lib/disml/http.mli" {"http.mli"} - "_build/install/default/lib/disml/impl.ml" {"impl.ml"} - "_build/install/default/lib/disml/member.ml" {"member.ml"} - "_build/install/default/lib/disml/member.mli" {"member.mli"} - "_build/install/default/lib/disml/member_t.ml" {"member_t.ml"} - "_build/install/default/lib/disml/member_t.mli" {"member_t.mli"} - "_build/install/default/lib/disml/message.ml" {"message.ml"} - "_build/install/default/lib/disml/message.mli" {"message.mli"} - "_build/install/default/lib/disml/message_id.ml" {"message_id.ml"} - "_build/install/default/lib/disml/message_id.mli" {"message_id.mli"} - "_build/install/default/lib/disml/message_t.ml" {"message_t.ml"} - "_build/install/default/lib/disml/message_t.mli" {"message_t.mli"} - "_build/install/default/lib/disml/opam" {"opam"} - "_build/install/default/lib/disml/opcode.ml" {"opcode.ml"} - "_build/install/default/lib/disml/opcode.mli" {"opcode.mli"} - "_build/install/default/lib/disml/presence.ml" {"presence.ml"} - "_build/install/default/lib/disml/presence.mli" {"presence.mli"} - "_build/install/default/lib/disml/reaction.ml" {"reaction.ml"} - "_build/install/default/lib/disml/reaction.mli" {"reaction.mli"} - "_build/install/default/lib/disml/reaction_t.ml" {"reaction_t.ml"} - "_build/install/default/lib/disml/reaction_t.mli" {"reaction_t.mli"} - "_build/install/default/lib/disml/rl.ml" {"rl.ml"} - "_build/install/default/lib/disml/rl.mli" {"rl.mli"} - "_build/install/default/lib/disml/role.ml" {"role.ml"} - "_build/install/default/lib/disml/role.mli" {"role.mli"} - "_build/install/default/lib/disml/role_id.ml" {"role_id.ml"} - "_build/install/default/lib/disml/role_id.mli" {"role_id.mli"} - "_build/install/default/lib/disml/role_t.ml" {"role_t.ml"} - "_build/install/default/lib/disml/role_t.mli" {"role_t.mli"} - "_build/install/default/lib/disml/s.ml" {"s.ml"} - "_build/install/default/lib/disml/sharder.ml" {"sharder.ml"} - "_build/install/default/lib/disml/sharder.mli" {"sharder.mli"} - "_build/install/default/lib/disml/snowflake.ml" {"snowflake.ml"} - "_build/install/default/lib/disml/snowflake.mli" {"snowflake.mli"} - "_build/install/default/lib/disml/user.ml" {"user.ml"} - "_build/install/default/lib/disml/user.mli" {"user.mli"} - "_build/install/default/lib/disml/user_id.ml" {"user_id.ml"} - "_build/install/default/lib/disml/user_id.mli" {"user_id.mli"} - "_build/install/default/lib/disml/user_id_t.ml" {"user_id_t.ml"} - "_build/install/default/lib/disml/user_id_t.mli" {"user_id_t.mli"} - "_build/install/default/lib/disml/user_t.ml" {"user_t.ml"} - "_build/install/default/lib/disml/user_t.mli" {"user_t.mli"} -] -doc: [ - "_build/install/default/doc/disml/LICENSE" - "_build/install/default/doc/disml/README.md" -] diff --git a/lib/http/http.ml b/lib/http/http.ml index 3bcf04e..ec6cb2c 100644 --- a/lib/http/http.ml +++ b/lib/http/http.ml @@ -21,12 +21,12 @@ module Base = struct else let boundary = "--" ^ multipart_boundary in let add_file (acc, idx) (filename, file_contents) = - Printf.sprintf "%s\nContent-Disposition: form-data; name=\"file%i\"; filename=\"%s\"\n\n%s\n%s" - acc idx filename file_contents boundary, idx + 1 + sprintf "%s\nContent-Disposition: form-data; name=\"file%i\"; filename=\"%s\"\n\n%s\n%s" + acc idx filename file_contents boundary, idx + 1 in let file_data, _ = List.fold files ~init:("", 1) ~f:add_file in - Printf.sprintf "%s\nContent-Disposition: form-data; name=\"payload_json\"\n\n%s\n%s%s--" - boundary json boundary file_data + sprintf "%s\nContent-Disposition: form-data; name=\"payload_json\"\n\n%s\n%s%s--" + boundary json boundary file_data end |> Cohttp_async.Body.of_string let process_request_headers ?(multipart=false) () = diff --git a/lib/models/channel/message/message.ml b/lib/models/channel/message/message.ml index 38c9242..7f03638 100644 --- a/lib/models/channel/message/message.ml +++ b/lib/models/channel/message/message.ml @@ -50,8 +50,9 @@ let unpin msg = let reply msg content = Channel_id.say content msg.channel_id -let reply_with ?embed ?content ?files ?tts msg = - Channel_id.send_message ?embed ?content ?files ?tts msg.channel_id +let reply_with ?embed ?content ?files ?tts ?(reply_mention=false) msg = + let reply = if reply_mention then Some msg.id else None in + Channel_id.send_message ?embed ?content ?files ?tts ?reply msg.channel_id let set_content msg cont = let `Message_id id = msg.id in diff --git a/lib/models/channel/message/message.mli b/lib/models/channel/message/message.mli index e0a789a..3046492 100644 --- a/lib/models/channel/message/message.mli +++ b/lib/models/channel/message/message.mli @@ -23,12 +23,13 @@ val unpin : t -> unit Deferred.Or_error.t (** Sugar for [Channel_id.say msg.channel_id content]. *) val reply : t -> string -> t Deferred.Or_error.t -(** Sugar for [Channel_id.send_message ?embed ?content ?files ?tts msg.channel_id]. *) +(** Sugar for [Channel_id.send_message ?embed ?content ?files ?tts ?reply_mention msg]. *) val reply_with : ?embed:Embed.t -> ?content:string -> ?files:(string * string) list -> ?tts:bool -> + ?reply_mention:bool -> t -> Message_t.t Deferred.Or_error.t diff --git a/lib/models/id/channel_id.ml b/lib/models/id/channel_id.ml index 1aa3fbb..1ea7a46 100644 --- a/lib/models/id/channel_id.ml +++ b/lib/models/id/channel_id.ml @@ -4,7 +4,7 @@ include Channel_id_t exception Invalid_message exception No_message_found -let send_message ?embed ?content ?files ?(tts=false) ch = +let send_message ?embed ?content ?files ?(tts=false) ?reply ch = let embed = match embed with | Some e -> Embed.to_yojson e | None -> `Null in @@ -14,10 +14,14 @@ let send_message ?embed ?content ?files ?(tts=false) ch = let () = match embed, content with | `Null, `Null -> raise Invalid_message | _ -> () in + let message_reference = match reply with + | Some m -> `Assoc [("message_id", Message_id.to_yojson m)] + | None -> `Null in Http.create_message ?files (get_id ch) (`Assoc [ ("embed", embed); ("content", content); ("tts", `Bool tts); + ("message_reference", message_reference); ]) let say content ch = diff --git a/lib/models/id/channel_id.mli b/lib/models/id/channel_id.mli index a05d282..2dfff8f 100644 --- a/lib/models/id/channel_id.mli +++ b/lib/models/id/channel_id.mli @@ -26,6 +26,7 @@ val send_message : ?content:string -> ?files:(string * string) list -> ?tts:bool -> + ?reply:Message_id.t -> t -> Message_t.t Deferred.Or_error.t -- cgit v1.2.3