lib/client.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

open Lwt.Infix
include Dispatch

type t =
{ sharder: Sharder.t
}

let start ?count ?compress ?(large=250) token =
    Client_options.token := "Bot " ^ token;
    Sharder.start ?count ?compress ~large_threshold:large ()
    >|= fun sharder ->
    { sharder; }

let set_status ?status ?kind ?name ?since ?url client =
    Sharder.set_status ?status ?kind ?name ?since ?url client.sharder

let request_guild_members ~guild ?query ?limit client =
    let `Guild_id guild = guild in
    Sharder.request_guild_members ~guild ?query ?limit client.sharder

let shutdown_all ?restart client =
    Sharder.shutdown_all ?restart client.sharder