diff options
| author | Adelyn Breedlove <[email protected]> | 2019-01-16 23:36:59 -0700 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-01-16 23:36:59 -0700 |
| commit | 6354dbd89d354e5e2499b4c2bea5d5fa95e020df (patch) | |
| tree | a0fd199097bdc675628d5bd735017d92d2067e08 /lib/models/member.ml | |
| parent | Merge branch 'switch-to-deriving_yojson' into 'master' (diff) | |
| download | disml-6354dbd89d354e5e2499b4c2bea5d5fa95e020df.tar.xz disml-6354dbd89d354e5e2499b4c2bea5d5fa95e020df.zip | |
eliminate all functors in favour of a simpler approach
Diffstat (limited to 'lib/models/member.ml')
| -rw-r--r-- | lib/models/member.ml | 25 |
1 files changed, 10 insertions, 15 deletions
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 |