more improvements to test bot, fix message module0.2.0

1 files changed, 11 insertions, 1 deletions

diff --git a/lib/models/message.ml b/lib/models/message.ml
index 6cb54b4..5bc06b7 100644
--- a/lib/models/message.ml
+++ b/lib/models/message.ml
@@ -1,3 +1,4 @@
+open Core
 open Async
 include Message_t
 
@@ -7,6 +8,7 @@ let add_reaction msg (emoji:Emoji.t) =
     | None -> emoji.name
     in
     Http.create_reaction msg.channel_id msg.id e
+    >>| Result.map ~f:ignore
 
 let remove_reaction msg (emoji:Emoji.t) (user:User_t.t) =
     let e = match emoji.id with
@@ -14,27 +16,35 @@ let remove_reaction msg (emoji:Emoji.t) (user:User_t.t) =
     | None -> emoji.name
     in
     Http.delete_reaction msg.channel_id msg.id e user.id
+    >>| Result.map ~f:ignore
 
 let clear_reactions msg =
     Http.delete_reactions msg.channel_id msg.id
+    >>| Result.map ~f:ignore
 
 let delete msg =
     Http.delete_message msg.channel_id msg.id
+    >>| Result.map ~f:ignore
 
 let pin msg =
     Http.pin_message msg.channel_id msg.id
+    >>| Result.map ~f:ignore
 
 let unpin msg =
     Http.unpin_message msg.channel_id msg.id
+    >>| Result.map ~f:ignore
 
 let reply msg cont =
     let rep = `Assoc [("content", `String cont)] in
     Http.create_message msg.channel_id rep
+    >>| Result.map ~f:Message_t.of_yojson_exn
 
 let set_content msg cont =
     to_yojson { msg with content = cont; }
     |> Http.edit_message msg.channel_id msg.id
+    >>| Result.map ~f:Message_t.of_yojson_exn
 
 let set_embed msg embed =
     to_yojson { msg with embeds = [embed]; }
-    |> Http.edit_message msg.channel_id msg.id
\ No newline at end of file
+    |> Http.edit_message msg.channel_id msg.id
+    >>| Result.map ~f:Message_t.of_yojson_exn
\ No newline at end of file