aboutsummaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rw-r--r--bin/bot.ml3
1 files changed, 3 insertions, 0 deletions
diff --git a/bin/bot.ml b/bin/bot.ml
index a7a689c..bef2625 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -57,6 +57,9 @@ let check_command (msg:Message.t) =
Client.set_status ~status:(`String status) client
>>> fun _ ->
Message.reply msg "Updated status" >>> ignore
+ | "!test" ->
+ let ch = `Channel_id 377716501446393856 in
+ Channel_id.say "Testing..." ch >>> ignore
| _ -> ()
let setup_logger () =