From b2f081fff12093a7d3434859ebd621608dde6c7d Mon Sep 17 00:00:00 2001 From: Matias Goldfeld Date: Sun, 7 Feb 2021 20:21:47 -0500 Subject: Reverted earlier changes for good --- lib/models/channel/message/message.ml | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lib/models/channel/message/message.ml') diff --git a/lib/models/channel/message/message.ml b/lib/models/channel/message/message.ml index 2aaa0da..7f03638 100644 --- a/lib/models/channel/message/message.ml +++ b/lib/models/channel/message/message.ml @@ -6,7 +6,7 @@ let add_reaction msg (emoji:Emoji.t) = let `Message_id id = msg.id in let `Channel_id channel_id = msg.channel_id in let e = match emoji.id with - | Some i -> Printf.sprintf "%s:%Ld" emoji.name i + | Some i -> Printf.sprintf "%s:%d" emoji.name i | None -> emoji.name in Http.create_reaction channel_id id e @@ -15,9 +15,9 @@ let add_reaction msg (emoji:Emoji.t) = let remove_reaction msg (emoji:Emoji.t) (user:User_t.t) = let `Message_id id = msg.id in let `Channel_id channel_id = msg.channel_id in - let user_id = User_id.get_id user.id in + let `User_id user_id = user.id in let e = match emoji.id with - | Some i -> Printf.sprintf "%s:%Ld" emoji.name i + | Some i -> Printf.sprintf "%s:%d" emoji.name i | None -> emoji.name in Http.delete_reaction channel_id id e user_id @@ -57,13 +57,13 @@ let reply_with ?embed ?content ?files ?tts ?(reply_mention=false) msg = let set_content msg cont = let `Message_id id = msg.id in let `Channel_id channel_id = msg.channel_id in - yojson_of_t { msg with content = cont; } + 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 - yojson_of_t { msg with embeds = [embed]; } + to_yojson { msg with embeds = [embed]; } |> Http.edit_message channel_id id -- cgit v1.2.3