From 40098d46475cda44e2a68064552504e52fdb5b1d Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Mon, 21 Jan 2019 13:56:21 -0700
Subject: improve the status example

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

diff --git a/bin/bot.ml b/bin/bot.ml
index 0acc0a1..a7a689c 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -52,10 +52,11 @@ let check_command (msg:Message.t) =
         ) in
         Message.reply_with ~embed msg >>> ignore
     | "!status" ->
-        let status = List.fold ~init:"" ~f:(^) rest in
+        let status = List.fold ~init:"" ~f:(fun a v -> a ^ " " ^ v) rest in
         Ivar.read client >>> fun client ->
         Client.set_status ~status:(`String status) client
-        >>> ignore
+        >>> fun _ ->
+        Message.reply msg "Updated status" >>> ignore
     | _ -> ()
 
 let setup_logger () =
-- 
cgit v1.2.3