From 6354dbd89d354e5e2499b4c2bea5d5fa95e020df Mon Sep 17 00:00:00 2001
From: Adelyn Breedlove <tenseiken595@gmail.com>
Date: Wed, 16 Jan 2019 23:36:59 -0700
Subject: eliminate all functors in favour of a simpler approach

---
 bin/bot.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'bin/bot.ml')

diff --git a/bin/bot.ml b/bin/bot.ml
index 7d7f714..a1bbf00 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -1,13 +1,13 @@
 open Async
 open Core
+open Disml
 
-module Client = Disml.Client.Make(struct
+let main () =
     let token = match Sys.getenv "DISCORD_TOKEN" with
     | Some t -> t
     | None -> failwith "No token in env"
-end)(Handler)
-
-let main () =
+    in
+    Client.create token;
     Client.start ()
     >>> fun client ->
     Clock.every
-- 
cgit v1.2.3


From 2d023e5cf9d880349686c137e530581765e65891 Mon Sep 17 00:00:00 2001
From: Adelyn Breedlove <tenseiken595@gmail.com>
Date: Thu, 17 Jan 2019 00:01:54 -0700
Subject: more mlis

---
 bin/bot.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'bin/bot.ml')

diff --git a/bin/bot.ml b/bin/bot.ml
index a1bbf00..25ccc1e 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -7,8 +7,7 @@ let main () =
     | Some t -> t
     | None -> failwith "No token in env"
     in
-    Client.create token;
-    Client.start ()
+    Client.start token
     >>> fun client ->
     Clock.every
     (Time.Span.create ~sec:60 ())
-- 
cgit v1.2.3


From c22cea2e99dff9ff45057ef33553dac8adebf0c1 Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Thu, 17 Jan 2019 09:03:52 -0700
Subject: new event dispatching

---
 bin/bot.ml | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'bin/bot.ml')

diff --git a/bin/bot.ml b/bin/bot.ml
index 25ccc1e..3608f85 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -8,13 +8,8 @@ let main () =
     | None -> failwith "No token in env"
     in
     Client.start token
-    >>> fun client ->
-    Clock.every
-    (Time.Span.create ~sec:60 ())
-    (fun () ->
-        print_endline "Setting status";
-        Client.set_status ~status:(`String "Hello!") client
-        >>> ignore)
+    >>> ignore
 
 let _ =
+    Client.message_create := (fun msg -> print_endline msg.content);
     Scheduler.go_main ~main ()
-- 
cgit v1.2.3