From 9c910343f13400c9867dc0841e52a6b4510633ad Mon Sep 17 00:00:00 2001
From: Mishio595 <tenseiken595@gmail.com>
Date: Tue, 13 Nov 2018 18:42:47 -0700
Subject: New name who dis

---
 bin/bot.ml            | 4 ++--
 dune                  | 4 ++--
 lib/animus.ml         | 0
 lib/client/sharder.ml | 4 ++--
 lib/dis.ml            | 0
 lib/http.ml           | 2 +-
 6 files changed, 7 insertions(+), 7 deletions(-)
 delete mode 100644 lib/animus.ml
 create mode 100644 lib/dis.ml

diff --git a/bin/bot.ml b/bin/bot.ml
index e976ce2..bf9f36e 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -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;
diff --git a/dune b/dune
index 295e841..b8d2700 100644
--- a/dune
+++ b/dune
@@ -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/animus.ml b/lib/animus.ml
deleted file mode 100644
index e69de29..0000000
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/dis.ml b/lib/dis.ml
new file mode 100644
index 0000000..e69de29
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"
 
-- 
cgit v1.2.3