From 7c9b809078b5cd53e3d54c0004c683da2ec679af Mon Sep 17 00:00:00 2001
From: Adelyn Breedlove <adelyn@momijibot.com>
Date: Mon, 11 Feb 2019 17:23:59 +0000
Subject: Add a cache

---
 lib/models/id/channel_id_t.ml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib/models/id/channel_id_t.ml')

diff --git a/lib/models/id/channel_id_t.ml b/lib/models/id/channel_id_t.ml
index e49beef..cea85e0 100644
--- a/lib/models/id/channel_id_t.ml
+++ b/lib/models/id/channel_id_t.ml
@@ -1,5 +1,9 @@
+open Core
+
 type t = [ `Channel_id of Snowflake.t ] [@@deriving sexp]
 
+let compare (`Channel_id t) (`Channel_id t') = Int.compare t t'
+
 let of_yojson a : (t, string) result =
     match Snowflake.of_yojson a with
     | Ok id -> Ok (`Channel_id id)
-- 
cgit v1.2.3