From d5ab5fb9e07d820de66fd987f7d2f793dd130e49 Mon Sep 17 00:00:00 2001 From: Adelyn Breedlove Date: Mon, 17 Dec 2018 06:46:25 -0700 Subject: Add a few sigs --- bin/handler.ml | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) (limited to 'bin/handler.ml') diff --git a/bin/handler.ml b/bin/handler.ml index 74eaefb..5b22527 100644 --- a/bin/handler.ml +++ b/bin/handler.ml @@ -6,7 +6,22 @@ module Make(Models : Disml.S.Models) = struct let check_command (msg:Disml.Message_t.t) = if String.is_prefix ~prefix:"!ping" msg.content then - Message.reply msg "Hello!" >>> ignore + Message.reply msg "Pong!" >>> ignore + else if String.is_prefix ~prefix:"!spam" msg.content then + List.range 0 20 + |> List.iter ~f:(fun i -> Message.reply msg (string_of_int i) >>> ignore) + else if String.is_prefix ~prefix:"!list" msg.content then + let count = String.chop_prefix_exn ~prefix:"!list" msg.content |> String.strip |> Int.of_string in + let list = List.range 0 count + |> List.sexp_of_t Int.sexp_of_t + |> Sexp.to_string_hum in + Message.reply msg list >>> ignore + else if String.is_prefix ~prefix:"!fold" msg.content then + let count = String.chop_prefix_exn ~prefix:"!fold" msg.content |> String.strip |> Int.of_string in + let list = List.range 0 count + |> List.fold ~init:0 ~f:(+) + |> Int.to_string in + Message.reply msg list >>> ignore let handle_event = function | HELLO _ -> print_endline "Received HELLO" -- cgit v1.2.3