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 a42fd16..05d836d 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -29,6 +29,9 @@ let check_command (msg:Message.t) =
|> List.fold ~init:0 ~f:(+)
|> Int.to_string in
Message.reply msg list >>> ignore
+ | "!embed" ->
+ let embed = { Embed.default with description = Some "Hello World!" } in
+ Message.reply_with ~embed msg >>> ignore
| _ -> ()
let main () =