diff options
| author | Adelyn Breedlove <[email protected]> | 2019-06-07 21:24:23 -0600 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-06-07 21:24:23 -0600 |
| commit | a42c8cabea8e0d5ea23c3a062b6ae308afd62d2f (patch) | |
| tree | ceee7242b9742b89b170d431a1ad8b6eab0583df | |
| parent | Add permission utilities (diff) | |
| download | disml-a42c8cabea8e0d5ea23c3a062b6ae308afd62d2f.tar.xz disml-a42c8cabea8e0d5ea23c3a062b6ae308afd62d2f.zip | |
Relocate token prefixingorigin/lwt
| -rw-r--r-- | lib/client.ml | 2 | ||||
| -rw-r--r-- | lib/http/http.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/client.ml b/lib/client.ml index 50966e7..bf27039 100644 --- a/lib/client.ml +++ b/lib/client.ml @@ -6,7 +6,7 @@ type t = }
let start ?count ?compress ?(large=250) token =
- Client_options.token := token;
+ Client_options.token := "Bot " ^ token;
Sharder.start ?count ?compress ~large_threshold:large ()
>|= fun sharder ->
{ sharder; }
diff --git a/lib/http/http.ml b/lib/http/http.ml index c99159f..61829cf 100644 --- a/lib/http/http.ml +++ b/lib/http/http.ml @@ -20,7 +20,7 @@ module Base = struct let h = Header.init () in
Header.add_list h
[ "User-Agent", "DiscordBot (https://gitlab.com/Mishio595/disml, v0.2.3)"
- ; "Authorization", ("Bot " ^ !Client_options.token)
+ ; "Authorization", !Client_options.token
; "Content-Type", "application/json"
; "Connection", "keep-alive"
]
|