From 9e3c97eb4f5d8a808844cb2e448371ce1cc150e1 Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Thu, 20 Dec 2018 16:03:27 -0700
Subject: Working with Discord's channel bullshit

---
 lib/models/channel.ml | 9 +++++++++
 1 file changed, 9 insertions(+)

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

diff --git a/lib/models/channel.ml b/lib/models/channel.ml
index 328cc94..d52be05 100644
--- a/lib/models/channel.ml
+++ b/lib/models/channel.ml
@@ -1,3 +1,12 @@
+let id (ch:Channel_t.t) = match ch with
+| `Group g -> g.id
+| `Private p -> p.id
+| `GuildText t -> t.id
+| `GuildVoice v -> v.id
+| `Category c -> c.id
+
 module Make(Http : S.Http) = struct
+    (* open Channel_t *)
+
     type t = Channel_t.t
 end
\ No newline at end of file
-- 
cgit v1.2.3