From 4df67b173aa7d51f5bd2ce95e476d130a6f93fd6 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Fri, 14 Dec 2018 11:53:25 -0700 Subject: Working and pretty message replying! --- bin/handler.ml | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'bin/handler.ml') diff --git a/bin/handler.ml b/bin/handler.ml index 8ed55a6..74eaefb 100644 --- a/bin/handler.ml +++ b/bin/handler.ml @@ -1,9 +1,13 @@ module Make(Models : Disml.S.Models) = struct - (* open Core *) + open Core open Async - (* open Models *) + open Models open Disml.Event + let check_command (msg:Disml.Message_t.t) = + if String.is_prefix ~prefix:"!ping" msg.content then + Message.reply msg "Hello!" >>> ignore + let handle_event = function | HELLO _ -> print_endline "Received HELLO" | READY _ -> print_endline "Received READY" @@ -27,7 +31,7 @@ module Make(Models : Disml.S.Models) = struct | GUILD_ROLE_CREATE _ -> print_endline "Received GUILD_ROLE_CREATE" | GUILD_ROLE_UPDATE _ -> print_endline "Received GUILD_ROLE_UPDATE" | GUILD_ROLE_DELETE _ -> print_endline "Received GUILD_ROLE_DELETE" - | MESSAGE_CREATE _ -> print_endline "Received MESSAGE_CREATE" + | MESSAGE_CREATE msg -> check_command msg; print_endline "Received MESSAGE_CREATE" | MESSAGE_UPDATE _ -> print_endline "Received MESSAGE_UPDATE" | MESSAGE_DELETE _ -> print_endline "Received MESSAGE_DELETE" | MESSAGE_BULK_DELETE _ -> print_endline "Received MESSAGE_BULK_DELETE" -- cgit v1.2.3