From b245933103d84a4320a9b21f0faaf84a11a2886b Mon Sep 17 00:00:00 2001 From: Adelyn Breedlove Date: Tue, 12 Feb 2019 19:49:33 +0000 Subject: Fix opam dependencies and revert changes --- lib/models/guild/guild.mli | 8 ++++---- lib/models/guild/member.ml | 1 + lib/models/guild/role.ml | 1 + 3 files changed, 6 insertions(+), 4 deletions(-) (limited to 'lib/models/guild') diff --git a/lib/models/guild/guild.mli b/lib/models/guild/guild.mli index 1fbcf55..6840828 100644 --- a/lib/models/guild/guild.mli +++ b/lib/models/guild/guild.mli @@ -3,7 +3,7 @@ open Async include module type of Guild_t val ban_user : id:Snowflake.t -> ?reason:string -> ?days:int -> t -> unit Deferred.Or_error.t -val create : (string * Yojson.Safe.t) list -> t Deferred.Or_error.t +val create : (string * Yojson.Safe.json) list -> t Deferred.Or_error.t val create_emoji : name:string -> image:string -> t -> Emoji.t Deferred.Or_error.t val create_role : name:string -> @@ -18,12 +18,12 @@ val delete : t -> unit Deferred.Or_error.t val get_ban : id:Snowflake.t -> t -> Ban_t.t Deferred.Or_error.t val get_bans : t -> Ban_t.t list Deferred.Or_error.t val get_emoji : id:Snowflake.t -> t -> Emoji.t Deferred.Or_error.t -val get_invites : t -> Yojson.Safe.t Deferred.Or_error.t +val get_invites : t -> Yojson.Safe.json Deferred.Or_error.t val get_prune_count : days:int -> t -> int Deferred.Or_error.t -val get_webhooks : t -> Yojson.Safe.t Deferred.Or_error.t +val get_webhooks : t -> Yojson.Safe.json Deferred.Or_error.t val kick_user : id:Snowflake.t -> ?reason:string -> t -> unit Deferred.Or_error.t val leave : t -> unit Deferred.Or_error.t -val list_voice_regions : t -> Yojson.Safe.t Deferred.Or_error.t +val list_voice_regions : t -> Yojson.Safe.json Deferred.Or_error.t val prune : days:int -> t -> int Deferred.Or_error.t val request_members : t -> Member_t.t list Deferred.Or_error.t val set_afk_channel : id:Snowflake.t -> t -> Guild_t.t Deferred.Or_error.t diff --git a/lib/models/guild/member.ml b/lib/models/guild/member.ml index c5a7455..1215396 100644 --- a/lib/models/guild/member.ml +++ b/lib/models/guild/member.ml @@ -1,3 +1,4 @@ +open Core include Member_t let add_role ~(role:Role_t.t) member = diff --git a/lib/models/guild/role.ml b/lib/models/guild/role.ml index 55e5813..1063d44 100644 --- a/lib/models/guild/role.ml +++ b/lib/models/guild/role.ml @@ -1,3 +1,4 @@ +open Core include Role_t let edit_role ~body (role:t) = -- cgit v1.2.3