diff options
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 |