diff options
| author | Adelyn Breedlove <[email protected]> | 2019-03-01 23:15:23 -0700 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-03-01 23:15:23 -0700 |
| commit | ef28f111cfec95a62b21a9267f9d24b1edc645dd (patch) | |
| tree | c5a93c0072823aaeac425f6263c076333b55d225 /lib/models/channel/message/message.ml | |
| parent | Remove use of Tyre in favour of Str lib (diff) | |
| download | disml-ef28f111cfec95a62b21a9267f9d24b1edc645dd.tar.xz disml-ef28f111cfec95a62b21a9267f9d24b1edc645dd.zip | |
Style improvements who dis
Diffstat (limited to 'lib/models/channel/message/message.ml')
| -rw-r--r-- | lib/models/channel/message/message.ml | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/models/channel/message/message.ml b/lib/models/channel/message/message.ml index d3917e9..41174e1 100644 --- a/lib/models/channel/message/message.ml +++ b/lib/models/channel/message/message.ml @@ -10,7 +10,7 @@ let add_reaction msg (emoji:Emoji.t) = | None -> emoji.name
in
Http.create_reaction channel_id id e
-
+
let remove_reaction msg (emoji:Emoji.t) (user:User_t.t) =
let `Message_id id = msg.id in
@@ -21,31 +21,31 @@ let remove_reaction msg (emoji:Emoji.t) (user:User_t.t) = | None -> emoji.name
in
Http.delete_reaction channel_id id e user_id
-
+
let clear_reactions msg =
let `Message_id id = msg.id in
let `Channel_id channel_id = msg.channel_id in
Http.delete_reactions channel_id id
-
+
let delete msg =
let `Message_id id = msg.id in
let `Channel_id channel_id = msg.channel_id in
Http.delete_message channel_id id
-
+
let pin msg =
let `Message_id id = msg.id in
let `Channel_id channel_id = msg.channel_id in
Http.pin_message channel_id id
-
+
let unpin msg =
let `Message_id id = msg.id in
let `Channel_id channel_id = msg.channel_id in
Http.unpin_message channel_id id
-
+
let reply msg content =
Channel_id.say content msg.channel_id
@@ -58,11 +58,11 @@ let set_content msg cont = let `Channel_id channel_id = msg.channel_id in
to_yojson { msg with content = cont; }
|> Http.edit_message channel_id id
-
+
let set_embed msg embed =
let `Message_id id = msg.id in
let `Channel_id channel_id = msg.channel_id in
to_yojson { msg with embeds = [embed]; }
|> Http.edit_message channel_id id
-
\ No newline at end of file +
|