From e48af10e04a4aea4eb72dac58b83fc7cc080e1bd Mon Sep 17 00:00:00 2001
From: Adelyn Breedlove <tenseiken595@gmail.com>
Date: Mon, 28 Jan 2019 07:41:20 -0700
Subject: Fix Message.t.mentions

---
 bin/bot.ml | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'bin')

diff --git a/bin/bot.ml b/bin/bot.ml
index f7f0869..fd20db5 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -64,6 +64,13 @@ let check_command (Event.MessageCreate.{message}) =
     | "!test" ->
         let ch = `Channel_id 377716501446393856 in
         Channel_id.say "Testing..." ch >>> ignore
+    | "!echo" ->
+        let `Message_id id = message.id in
+        let id = Option.((List.hd rest >>| Int.of_string) |> value ~default:id) in
+        Channel_id.get_message ~id message.channel_id >>> begin function
+        | Ok msg -> Message.reply message (Printf.sprintf "```lisp\n%s```" (Message.sexp_of_t msg |> Sexp.to_string_hum)) >>> ignore
+        | _ -> ()
+        end
     | _ -> ()
 
 let setup_logger () =
-- 
cgit v1.2.3