From d342c4cf9fe907d2107cd815f9988f8ad147218b Mon Sep 17 00:00:00 2001
From: Mishio595 <tenseiken595@gmail.com>
Date: Sat, 24 Nov 2018 09:51:03 -0700
Subject: Major structural changes

---
 lib/message.ml | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 lib/message.ml

(limited to 'lib/message.ml')

diff --git a/lib/message.ml b/lib/message.ml
new file mode 100644
index 0000000..5b632d7
--- /dev/null
+++ b/lib/message.ml
@@ -0,0 +1,12 @@
+type t = {
+    id: string;
+    content: string;
+    channel: string;
+}
+
+let from_json term =
+    let module J = Yojson.Basic.Util in
+    let id = J.(member "id" term |> to_string) in
+    let content = J.(member "content" term |> to_string) in
+    let channel = J.(member "channel_id" term |> to_string) in
+    { id; content; channel; }
-- 
cgit v1.2.3