diff options
| author | Adelyn Breelove <[email protected]> | 2019-01-29 10:01:35 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2019-01-29 10:01:35 -0700 |
| commit | 16cba5acd05093c66ab1432b40d40605c1098407 (patch) | |
| tree | 28adffb77476315809fe133993c243c036447dc4 /lib/impl.ml | |
| parent | Remove outdated docs (diff) | |
| download | disml-16cba5acd05093c66ab1432b40d40605c1098407.tar.xz disml-16cba5acd05093c66ab1432b40d40605c1098407.zip | |
Add client options
Diffstat (limited to 'lib/impl.ml')
| -rw-r--r-- | lib/impl.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/impl.ml b/lib/impl.ml index 5fd7680..ae092d3 100644 --- a/lib/impl.ml +++ b/lib/impl.ml @@ -50,6 +50,10 @@ module Channel(T : S.HasSnowflake) : S.ChannelImpl with type t := T.t = struct let get_pins ch =
Http.get_pinned_messages (get_id ch)
+
+ let bulk_delete msgs ch =
+ let msgs = `List (List.map ~f:(fun id -> `Int id) msgs) in
+ Http.bulk_delete (get_id ch) msgs
end
module Guild(T : S.HasSnowflake) : S.GuildImpl with type t := T.t = struct
|