Major structural changes

1 files changed, 12 insertions, 0 deletions

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; }