Start of an event dispatch rework

1 files changed, 7 insertions, 1 deletions

diff --git a/lib/s.ml b/lib/s.ml
index 1aa69a6..64a3d17 100644
--- a/lib/s.ml
+++ b/lib/s.ml
@@ -1,6 +1,6 @@
 open Async
 
-module type Has_snowflake = sig
+module type HasSnowflake = sig
     type t [@@deriving sexp, yojson]
     val get_id : t -> Snowflake.t
 end
@@ -83,4 +83,10 @@ module type GuildImpl = sig
     val set_name : name:string -> t -> Guild_t.t Deferred.Or_error.t
     val set_icon : icon:string -> t -> Guild_t.t Deferred.Or_error.t
     val unban_user : id:Snowflake.t -> ?reason:string -> t -> unit Deferred.Or_error.t
+end
+
+module type UserImpl = sig
+    type t
+    (* val private_channel : t -> Channel_t.t *)
+    (* val send : t -> Yojson.Safe.json Deferred.Or_error.t *)
 end
\ No newline at end of file