From d5ab5fb9e07d820de66fd987f7d2f793dd130e49 Mon Sep 17 00:00:00 2001 From: Adelyn Breedlove Date: Mon, 17 Dec 2018 06:46:25 -0700 Subject: Add a few sigs --- lib/models/member.ml | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'lib/models/member.ml') 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 -- cgit v1.2.3 From 47421af4afeaf7cd4c160b2001e207f1fae775c2 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Wed, 19 Dec 2018 14:06:23 -0700 Subject: More type abstraction stuff --- lib/models/member.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'lib/models/member.ml') diff --git a/lib/models/member.ml b/lib/models/member.ml index 6617d23..7fa9c03 100644 --- a/lib/models/member.ml +++ b/lib/models/member.ml @@ -1,4 +1,5 @@ module Make(Http : S.Http) = struct + type t = Member_t.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 -- cgit v1.2.3