blob: 74588b1200d2ac4ad447b329d06ea090144e6b0f (
plain) (
blame)
1
2
3
4
5
6
7
|
open Core
type t = [ `Channel_id of Snowflake.t ] [@@deriving sexp, yojson]
let compare (`Channel_id t) (`Channel_id t') = Int64.compare t t'
let get_id (`Channel_id id) = id
|