Print debugging

This commit is contained in:
Joseph Ferano 2022-05-29 16:28:21 +07:00
parent dc84d2de4c
commit 03010e51ba

View File

@ -452,10 +452,14 @@ let handleMemberUpdated (client : DiscordClient) (event : GuildMemberUpdateEvent
let handleMessageCreated _ (event : MessageCreateEventArgs) =
task {
let bot = GuildEnvironment.botClientRecruit.Value
let bot = GuildEnvironment.botClientRecruit.Value
printfn $"{event.Channel.Id} - {GuildEnvironment.channelSubmitWallet}"
printfn $"{event.Author.Id} - {bot.CurrentUser.Id}"
if event.Channel.Id = GuildEnvironment.channelSubmitWallet && event.Author.Id <> bot.CurrentUser.Id then
do! Async.Sleep 100
printfn "Going to delete"
do! event.Message.DeleteAsync()
printfn "Able to?"
} :> Task
let handleGuildMemberAdded _ (eventArgs : GuildMemberAddEventArgs) =