From 5e7e594b747138e5fcabb71ac580e1473d63ee1b Mon Sep 17 00:00:00 2001 From: Adelyn Breedlove Date: Fri, 25 Jan 2019 07:14:00 -0700 Subject: simple corrections --- bin/bot.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'bin') diff --git a/bin/bot.ml b/bin/bot.ml index 26d08a6..0652c71 100644 --- a/bin/bot.ml +++ b/bin/bot.ml @@ -14,9 +14,9 @@ let check_command (Event.MessageCreate.{message}) = Message.reply message "Pong!" >>= begin fun message -> let message = match message with Ok m -> m | Error e -> Error.raise e in let diff = Time.diff (Time.now ()) (Time.of_string message.timestamp) in - Message.set_content message (Printf.sprintf "Pong! `%d ms`" (Time.Span.to_ms diff |> Float.to_int)) + Message.set_content message (Printf.sprintf "Pong! `%d ms`" (Time.Span.to_ms diff |> Float.abs |> Float.to_int)) end >>> ignore - | "spam" -> + | "!spam" -> let count = Option.((List.hd rest >>| Int.of_string) |> value ~default:0) in List.range 0 count |> List.iter ~f:(fun i -> Message.reply message (string_of_int i) >>> ignore) -- cgit v1.2.3