aboutsummaryrefslogtreecommitdiff
path: root/bin/bot.ml
diff options
context:
space:
mode:
authorAdelyn Breelove <[email protected]>2019-01-23 10:40:04 -0700
committerAdelyn Breelove <[email protected]>2019-01-23 10:40:04 -0700
commitf23a12be25f819b9cc9ae05829b14edb6807082f (patch)
treee90bf9fa5a469c9707feccce9bf3926858c67f35 /bin/bot.ml
parentfix a doc typo (diff)
downloaddisml-f23a12be25f819b9cc9ae05829b14edb6807082f.tar.xz
disml-f23a12be25f819b9cc9ae05829b14edb6807082f.zip
Guild ID and Channel ID abstractions
Diffstat (limited to 'bin/bot.ml')
-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 () =