From 4df67b173aa7d51f5bd2ce95e476d130a6f93fd6 Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Fri, 14 Dec 2018 11:53:25 -0700
Subject: Working and pretty message replying!

---
 lib/models/message.ml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib/models/message.ml')

diff --git a/lib/models/message.ml b/lib/models/message.ml
index 36b7d4b..7849afe 100644
--- a/lib/models/message.ml
+++ b/lib/models/message.ml
@@ -1,2 +1,7 @@
 module Make(Http : S.Http) = struct
+    let reply (message:Message_t.t) str =
+        let msg = `Assoc [
+            ("content", `String str)
+        ] in
+        Http.create_message (string_of_int (message.channel_id)) (msg)
 end
\ No newline at end of file
-- 
cgit v1.2.3