diff options
| -rw-r--r-- | bin/bot.ml | 4 | ||||
| -rw-r--r-- | dune | 4 | ||||
| -rw-r--r-- | lib/client/sharder.ml | 4 | ||||
| -rw-r--r-- | lib/dis.ml (renamed from lib/animus.ml) | 0 | ||||
| -rw-r--r-- | lib/http.ml | 2 |
5 files changed, 7 insertions, 7 deletions
@@ -1,5 +1,5 @@ open Lwt.Infix -open Animus +open Disml let main sharder = Lwt_engine.on_timer 60.0 true begin @@ -12,7 +12,7 @@ let main sharder = end let _ = - Animus.Sharder.start @@ Sys.getenv "DISCORD_TOKEN" + Sharder.start @@ Sys.getenv "DISCORD_TOKEN" >>= (fun sharder -> main sharder |> ignore; @@ -1,5 +1,5 @@ (library - (name animus) + (name disml) (modules endpoints http client sharder opcode) (libraries lwt cohttp cohttp.lwt yojson websocket websocket-lwt-unix zlib) ) @@ -8,7 +8,7 @@ (executable (name bot) (modules bot) - (libraries lwt animus) + (libraries lwt disml) ) (include_subdirs unqualified)
\ No newline at end of file diff --git a/lib/client/sharder.ml b/lib/client/sharder.ml index 4165413..18d1da0 100644 --- a/lib/client/sharder.ml +++ b/lib/client/sharder.ml @@ -138,8 +138,8 @@ module Shard = struct ("token", `String shard.token); ("properties", `Assoc [ ("$os", `String Sys.os_type); - ("$device", `String "animus"); - ("$browser", `String "animus") + ("$device", `String "dis.ml"); + ("$browser", `String "dis.ml") ]); ("compress", `Bool false); (* TODO add compression handling*) ("large_threshold", `Int 250); diff --git a/lib/animus.ml b/lib/dis.ml index e69de29..e69de29 100644 --- a/lib/animus.ml +++ b/lib/dis.ml diff --git a/lib/http.ml b/lib/http.ml index 105ae34..b6b0298 100644 --- a/lib/http.ml +++ b/lib/http.ml @@ -20,7 +20,7 @@ module Base = struct let token = try Sys.getenv "DISCORD_TOKEN" with Not_found -> failwith "Please provide a token" in - let h = Header.init_with "User-Agent" "Animus v0.1.0" in + let h = Header.init_with "User-Agent" "Dis.ml v0.1.0" in let h = Header.add h "Authorization" ("Bot " ^ token) in Header.add h "Content-Type" "application/json" |