Add a few sigs

3 files changed, 28 insertions, 18 deletions

diff --git a/lib/models.mli b/lib/models.mli
new file mode 100644
index 0000000..01a8893
--- /dev/null
+++ b/lib/models.mli
@@ -0,0 +1 @@
+module Make(H : S.Http) : S.Models
\ No newline at end of file
diff --git a/lib/models/member.ml b/lib/models/member.ml
index 36b7d4b..6617d23 100644
--- a/lib/models/member.ml
+++ b/lib/models/member.ml
@@ -1,2 +1,11 @@
 module Make(Http : S.Http) = struct
+	(* val add_role : Member_t.t -> Role_t.t -> Yojson.Safe.json Deferred.t
+	val remove_role : Member_t.t -> Role_t.t -> Yojson.Safe.json Deferred.t
+	val ban : ?reason:string -> ?days:int -> Member_t.t -> Yojson.Safe.json Deferred.t
+	val ban : ?reason:string -> Member_t.t -> Yojson.Safe.json Deferred.t
+	val kick : ?reason:string -> Member_t.t -> Yojson.Safe.json Deferred.t
+	val mute : Member_t.t -> Yojson.Safe.json Deferred.t
+	val deafen : Member_t.t -> Yojson.Safe.json Deferred.t
+	val unmute : Member_t.t -> Yojson.Safe.json Deferred.t
+	val undeafen : Member_t.t -> Yojson.Safe.json Deferred.t *)
 end
\ No newline at end of file
diff --git a/lib/s.ml b/lib/s.ml
index afe4209..b945218 100644
--- a/lib/s.ml
+++ b/lib/s.ml
@@ -19,27 +19,27 @@ module type Emoji = sig end
 module type Guild = sig end
 
 module type Member = sig
-	(* val add_role : Member_t.t -> Role_t.t -> Yojson.Safe.json Deferred.t
-	val remove_role : Member_t.t -> Role_t.t -> Yojson.Safe.json Deferred.t
-	val ban : ?reason:string -> ?days:int -> Member_t.t -> Yojson.Safe.json Deferred.t
-	val ban : ?reason:string -> Member_t.t -> Yojson.Safe.json Deferred.t
-	val kick : ?reason:string -> Member_t.t -> Yojson.Safe.json Deferred.t
-	val mute : Member_t.t -> Yojson.Safe.json Deferred.t
-	val deafen : Member_t.t -> Yojson.Safe.json Deferred.t
-	val unmute : Member_t.t -> Yojson.Safe.json Deferred.t
-	val undeafen : Member_t.t -> Yojson.Safe.json Deferred.t *)
+    (* val add_role : Member_t.t -> Role_t.t -> Yojson.Safe.json Deferred.t
+    val remove_role : Member_t.t -> Role_t.t -> Yojson.Safe.json Deferred.t
+    val ban : ?reason:string -> ?days:int -> Member_t.t -> Yojson.Safe.json Deferred.t
+    val ban : ?reason:string -> Member_t.t -> Yojson.Safe.json Deferred.t
+    val kick : ?reason:string -> Member_t.t -> Yojson.Safe.json Deferred.t
+    val mute : Member_t.t -> Yojson.Safe.json Deferred.t
+    val deafen : Member_t.t -> Yojson.Safe.json Deferred.t
+    val unmute : Member_t.t -> Yojson.Safe.json Deferred.t
+    val undeafen : Member_t.t -> Yojson.Safe.json Deferred.t *)
 end
 
 module type Message = sig
-	val add_reaction : Message_t.t -> Emoji_t.t -> Yojson.Safe.json Deferred.t
-	val remove_reaction : Message_t.t -> Emoji_t.t -> User_t.t -> Yojson.Safe.json Deferred.t
-	val clear_reactions : Message_t.t -> Yojson.Safe.json Deferred.t
-	val delete : Message_t.t -> Yojson.Safe.json Deferred.t
-	val pin : Message_t.t -> Yojson.Safe.json Deferred.t
-	val unpin : Message_t.t -> Yojson.Safe.json Deferred.t
-	val reply : Message_t.t -> string -> Yojson.Safe.json Deferred.t
-	val set_content : Message_t.t -> string -> Yojson.Safe.json Deferred.t
-	val set_embed : Message_t.t -> Embed_t.t -> Yojson.Safe.json Deferred.t
+    val add_reaction : Message_t.t -> Emoji_t.t -> Yojson.Safe.json Deferred.t
+    val remove_reaction : Message_t.t -> Emoji_t.t -> User_t.t -> Yojson.Safe.json Deferred.t
+    val clear_reactions : Message_t.t -> Yojson.Safe.json Deferred.t
+    val delete : Message_t.t -> Yojson.Safe.json Deferred.t
+    val pin : Message_t.t -> Yojson.Safe.json Deferred.t
+    val unpin : Message_t.t -> Yojson.Safe.json Deferred.t
+    val reply : Message_t.t -> string -> Yojson.Safe.json Deferred.t
+    val set_content : Message_t.t -> string -> Yojson.Safe.json Deferred.t
+    val set_embed : Message_t.t -> Embed_t.t -> Yojson.Safe.json Deferred.t
 end
 
 module type Presence = sig end