aboutsummaryrefslogtreecommitdiff
path: root/bin/bot.ml
diff options
context:
space:
mode:
authorAdelyn Breedlove <[email protected]>2019-01-19 15:58:31 -0700
committerAdelyn Breedlove <[email protected]>2019-01-19 15:58:31 -0700
commitb678d7312518bb0ff74d7db364bcbbcded5c1609 (patch)
tree39094fc179c33fc67269ffc3fea218384c558cfe /bin/bot.ml
parentupdate docs export (diff)
downloaddisml-b678d7312518bb0ff74d7db364bcbbcded5c1609.tar.xz
disml-b678d7312518bb0ff74d7db364bcbbcded5c1609.zip
more updates
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 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 () =