diff options
| author | Adelyn Breelove <[email protected]> | 2019-01-24 11:59:13 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2019-01-24 11:59:13 -0700 |
| commit | 2d61d1ffd77940eebd4e865ba1429c5798ed0b7c (patch) | |
| tree | 08327e19f4047eace5d88dce7dde2997cf119406 /lib/impl.ml | |
| parent | Improve HTTP stuff (diff) | |
| download | disml-2d61d1ffd77940eebd4e865ba1429c5798ed0b7c.tar.xz disml-2d61d1ffd77940eebd4e865ba1429c5798ed0b7c.zip | |
Start of an event dispatch rework
Diffstat (limited to 'lib/impl.ml')
| -rw-r--r-- | lib/impl.ml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/impl.ml b/lib/impl.ml index 573ef30..cc0f050 100644 --- a/lib/impl.ml +++ b/lib/impl.ml @@ -1,4 +1,4 @@ -module Channel(T : S.Has_snowflake) : S.ChannelImpl with type t := T.t = struct +module Channel(T : S.HasSnowflake) : S.ChannelImpl with type t := T.t = struct open Core include T @@ -52,7 +52,7 @@ module Channel(T : S.Has_snowflake) : S.ChannelImpl with type t := T.t = struct Http.get_pinned_messages (get_id ch) end -module Guild(T : S.Has_snowflake) : S.GuildImpl with type t := T.t = struct +module Guild(T : S.HasSnowflake) : S.GuildImpl with type t := T.t = struct include T let ban_user ~id ?(reason="") ?(days=0) guild = @@ -157,4 +157,8 @@ module Guild(T : S.Has_snowflake) : S.GuildImpl with type t := T.t = struct | Some r -> `Assoc [("reason", `String r)] | None -> `Null in Http.guild_ban_remove (get_id guild) id payload +end + +module User(T : S.HasSnowflake) : S.UserImpl with type t := T.t = struct + include T end
\ No newline at end of file |