From ae0f5c08bb4fb8868ca47030557a161993f24c8f Mon Sep 17 00:00:00 2001
From: Adelyn Breedlove <adelyn@momijibot.com>
Date: Tue, 5 Feb 2019 21:42:34 +0000
Subject: Sharder fixes

---
 lib/sharder.mli | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'lib/sharder.mli')

diff --git a/lib/sharder.mli b/lib/sharder.mli
index e00ad14..7c9c90d 100644
--- a/lib/sharder.mli
+++ b/lib/sharder.mli
@@ -37,6 +37,7 @@ module Shard : sig
     (** Wrapper around an internal state, used to wrap {!shard}. *)
     type 'a t = {
         mutable state: 'a;
+        mutable stopped: bool;
     }
 
     (** Send a heartbeat to Discord. This is handled automatically. *)
@@ -67,7 +68,11 @@ module Shard : sig
         unit ->
         shard Deferred.t
 
-    val shutdown_clean : shard -> unit Deferred.t
+    val shutdown :
+        ?clean:bool ->
+        ?restart:bool ->
+        shard t ->
+        unit Deferred.t
 end
 
 (** Calls {!Shard.set_status} for each shard registered with the sharder. *)
@@ -90,4 +95,7 @@ val request_guild_members :
     t ->
     Shard.shard list Deferred.t
 
-val shutdown_all : t -> unit list Deferred.t
\ No newline at end of file
+val shutdown_all :
+        ?restart:bool ->
+        t ->
+        unit list Deferred.t
-- 
cgit v1.2.3