diff options
| -rw-r--r-- | bin/bot.ml | 4 | ||||
| -rw-r--r-- | lib/models/guild/guild_t.ml | 2 |
2 files changed, 3 insertions, 3 deletions
@@ -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) diff --git a/lib/models/guild/guild_t.ml b/lib/models/guild/guild_t.ml index 58c3cf8..97e3c48 100644 --- a/lib/models/guild/guild_t.ml +++ b/lib/models/guild/guild_t.ml @@ -2,7 +2,7 @@ open Core type unavailable = { id: Guild_id_t.t; -} [@@deriving sexp, yojson] +} [@@deriving sexp, yojson { strict = false }] type pre = { id: Snowflake.t; |