diff options
| author | Adelyn Breedlove <[email protected]> | 2019-02-12 19:49:33 +0000 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-02-12 19:49:33 +0000 |
| commit | b245933103d84a4320a9b21f0faaf84a11a2886b (patch) | |
| tree | b5ff6275e4053971d4f0d524cf39bd1310af4e67 /lib/models/id | |
| parent | Random useless command in the test bot (diff) | |
| download | disml-b245933103d84a4320a9b21f0faaf84a11a2886b.tar.xz disml-b245933103d84a4320a9b21f0faaf84a11a2886b.zip | |
Fix opam dependencies and revert changes
Diffstat (limited to 'lib/models/id')
| -rw-r--r-- | lib/models/id/guild_id.ml | 1 | ||||
| -rw-r--r-- | lib/models/id/guild_id.mli | 6 | ||||
| -rw-r--r-- | lib/models/id/message_id.ml | 2 | ||||
| -rw-r--r-- | lib/models/id/role_id.ml | 2 |
4 files changed, 8 insertions, 3 deletions
diff --git a/lib/models/id/guild_id.ml b/lib/models/id/guild_id.ml index 6b3385c..ca8208f 100644 --- a/lib/models/id/guild_id.ml +++ b/lib/models/id/guild_id.ml @@ -1,3 +1,4 @@ +open Core
include Guild_id_t
let ban_user ~id ?(reason="") ?(days=0) guild =
diff --git a/lib/models/id/guild_id.mli b/lib/models/id/guild_id.mli index 11f34f7..bda5b4c 100644 --- a/lib/models/id/guild_id.mli +++ b/lib/models/id/guild_id.mli @@ -16,12 +16,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/id/message_id.ml b/lib/models/id/message_id.ml index 10bcb1d..3c45e16 100644 --- a/lib/models/id/message_id.ml +++ b/lib/models/id/message_id.ml @@ -1,3 +1,5 @@ +open Core
+
type t = [ `Message_id of Snowflake.t ] [@@deriving sexp]
let of_yojson a : (t, string) result =
diff --git a/lib/models/id/role_id.ml b/lib/models/id/role_id.ml index f055b1a..0bbf8be 100644 --- a/lib/models/id/role_id.ml +++ b/lib/models/id/role_id.ml @@ -1,3 +1,5 @@ +open Core
+
type t = [ `Role_id of Snowflake.t ] [@@deriving sexp]
let of_yojson a : (t, string) result =
|