diff options
| author | Matias Goldfeld <[email protected]> | 2021-01-28 00:50:21 -0500 |
|---|---|---|
| committer | Matias Goldfeld <[email protected]> | 2021-01-28 00:50:21 -0500 |
| commit | b499169e93e9f7bdd0f877a3cdf0247ec495abe1 (patch) | |
| tree | 52696cb3e1c16a84513fb90fe50c3738ce4539cb /lib/models/channel/message | |
| parent | More 32 bit fixes (diff) | |
| download | disml-b499169e93e9f7bdd0f877a3cdf0247ec495abe1.tar.xz disml-b499169e93e9f7bdd0f877a3cdf0247ec495abe1.zip | |
More Int64 refactors
Diffstat (limited to 'lib/models/channel/message')
| -rw-r--r-- | lib/models/channel/message/message.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/models/channel/message/message.ml b/lib/models/channel/message/message.ml index 7f03638..a94d15e 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:%d" emoji.name i
+ | Some i -> Printf.sprintf "%s:%Ld" emoji.name i
| None -> emoji.name
in
Http.create_reaction channel_id id e
@@ -17,7 +17,7 @@ let remove_reaction msg (emoji:Emoji.t) (user:User_t.t) = let `Channel_id channel_id = msg.channel_id in
let `User_id user_id = user.id in
let e = match emoji.id with
- | Some i -> Printf.sprintf "%s:%d" emoji.name i
+ | Some i -> Printf.sprintf "%s:%Ld" emoji.name i
| None -> emoji.name
in
Http.delete_reaction channel_id id e user_id
|