Remove messages

This commit is contained in:
Joseph Ferano 2022-03-04 15:54:25 +07:00
parent 3f4d785bcb
commit 4ef8243e22

View File

@ -97,17 +97,13 @@ let getInvitedUsers userId =
let createGuildInvite (ctx : IDiscordContext) = let createGuildInvite (ctx : IDiscordContext) =
task { task {
printfn $"{GuildEnvironment.channelWelcome}" let channel = ctx.GetGuild().Channels.[GuildEnvironment.channelWelcome]
let ( result , channel ) = ctx.GetGuild().Channels.TryGetValue(GuildEnvironment.channelWelcome)
printfn $"{result} {channel.Name}"
let! invite = channel.CreateInviteAsync(max_age = 86400) let! invite = channel.CreateInviteAsync(max_age = 86400)
printfn $"{invite.Code}"
// When a player generates an invite code but it hasn't expired, it generates the same code, creating a duplicate entry // When a player generates an invite code but it hasn't expired, it generates the same code, creating a duplicate entry
// so catch the exception thrown because the code column is unique // so catch the exception thrown because the code column is unique
try try
let! result = createInvite (ctx.GetDiscordMember().Id) invite.Code let! _ = createInvite (ctx.GetDiscordMember().Id) invite.Code
printfn "%A" result
return () return ()
with ex -> with ex ->
printfn "%A" ex.Message printfn "%A" ex.Message