Change api of the set_status methods

1 files changed, 27 insertions, 8 deletions

diff --git a/lib/client.mli b/lib/client.mli
index c5b5501..8a0002b 100644
--- a/lib/client.mli
+++ b/lib/client.mli
@@ -3,8 +3,8 @@ open Async
 include module type of Dispatch

 

 (** Type of the Client, it isn't recommended to access the fields directly. *)

-type t = {

-    sharder: Sharder.t;

+type t =

+{ sharder: Sharder.t

 }

 

 (** Start the Client. This begins shard connections to Discord and event handlers should be registered prior to calling this.

@@ -26,13 +26,32 @@ type t = {
     @param string The token used for authentication.

     @return A deferred client object.

 *)

-val start : ?count:int -> ?compress:bool -> ?large:int -> string -> t Deferred.t

+val start :

+    ?count:int ->

+    ?compress:bool ->

+    ?large:int ->

+    string ->

+    t Deferred.t

 

 (** Same as {!Sharder.set_status} where [client.sharder] is passed. *)

-val set_status : status:Yojson.Safe.t -> t -> Sharder.Shard.shard list Deferred.t

-

-(** Same as {!Sharder.set_status_with} where [client.sharder] is passed. *)

-val set_status_with : f:(Sharder.Shard.shard -> Yojson.Safe.t) -> t -> Sharder.Shard.shard list Deferred.t

+val set_status :

+    ?status:string ->

+    ?kind:int ->

+    ?name:string ->

+    ?since:int ->

+    t ->

+    Sharder.Shard.shard list Deferred.t

 

 (** Same as {!Sharder.request_guild_members} where [client.sharder] is passed. *)

-val request_guild_members : guild:Guild_id.t -> ?query:string -> ?limit:int -> t -> Sharder.Shard.shard list Deferred.t
\ No newline at end of file
+val request_guild_members :

+    guild:Guild_id.t ->

+    ?query:string ->

+    ?limit:int ->

+    t ->

+    Sharder.Shard.shard list Deferred.t

+

+(** Same as {!Sharder.shutdown_all} where [client.sharder] is passed. *)

+val shutdown_all :

+    ?restart:bool ->

+    t ->

+    unit list Deferred.t
\ No newline at end of file