From 16cba5acd05093c66ab1432b40d40605c1098407 Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Tue, 29 Jan 2019 10:01:35 -0700
Subject: Add client options

---
 lib/impl.ml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib/impl.ml')

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
-- 
cgit v1.2.3