diff options
| -rw-r--r-- | bin/bot.ml | 1 | ||||
| -rw-r--r-- | lib/event.ml | 2 |
2 files changed, 2 insertions, 1 deletions
@@ -69,6 +69,7 @@ let setup_logger () = let main () = setup_logger (); Client.message_create := check_command; + Client.ready := (fun _ -> Logs.info (fun m -> m "Logged in")); let token = match Sys.getenv "DISCORD_TOKEN" with | Some t -> t | None -> failwith "No token in env" diff --git a/lib/event.ml b/lib/event.ml index 3255470..7082858 100644 --- a/lib/event.ml +++ b/lib/event.ml @@ -65,7 +65,7 @@ let event_of_yojson ~contents t = match t with | "MESSAGE_CREATE" -> MESSAGE_CREATE (Message_t.of_yojson_exn contents) | "MESSAGE_UPDATE" -> MESSAGE_UPDATE (Message_t.message_update_of_yojson_exn contents) | "MESSAGE_DELETE" -> MESSAGE_DELETE (Yojson.Safe.Util.(member "id" contents |> Snowflake.of_yojson_exn), Yojson.Safe.Util.(member "channel_id" contents |> Snowflake.of_yojson_exn)) - | "MESSAGE_DELETE_BULK" -> MESSAGE_DELETE_BULK (Yojson.Safe.Util.to_list contents |> List.map ~f:Snowflake.of_yojson_exn) + | "MESSAGE_DELETE_BULK" -> MESSAGE_DELETE_BULK (Yojson.Safe.Util.(member "ids" contents |> to_list) |> List.map ~f:Snowflake.of_yojson_exn) | "MESSAGE_REACTION_ADD" -> MESSAGE_REACTION_ADD (Reaction_t.reaction_event_of_yojson_exn contents) | "MESSAGE_REACTION_REMOVE" -> MESSAGE_REACTION_REMOVE (Reaction_t.reaction_event_of_yojson_exn contents) | "MESSAGE_REACTION_REMOVE_ALL" -> MESSAGE_REACTION_REMOVE_ALL (Yojson.Safe.Util.to_list contents |> List.map ~f:Reaction_t.of_yojson_exn) |