From 6354dbd89d354e5e2499b4c2bea5d5fa95e020df Mon Sep 17 00:00:00 2001 From: Adelyn Breedlove Date: Wed, 16 Jan 2019 23:36:59 -0700 Subject: eliminate all functors in favour of a simpler approach --- lib/models/member.ml | 25 ++++++++++--------------- 1 file changed, 10 insertions(+), 15 deletions(-) (limited to 'lib/models/member.ml') diff --git a/lib/models/member.ml b/lib/models/member.ml index 190d865..03674b7 100644 --- a/lib/models/member.ml +++ b/lib/models/member.ml @@ -1,15 +1,10 @@ -module Make(Http : S.Http) = struct - type partial_member = Member_t.partial_member - type member = Member_t.member - type member_update = Member_t.member_update - 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 - 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 +include Member_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 *) \ No newline at end of file -- cgit v1.2.3