Print debugging
This commit is contained in:
parent
a60f12c15e
commit
8cb20b414c
@ -286,23 +286,31 @@ let private processNewUser (eventArgs : GuildMemberAddEventArgs) =
|
||||
|
||||
let acceptInvite (guild : DiscordGuild) discordId memberName =
|
||||
task {
|
||||
printfn "1"
|
||||
match! checkInviteAccepted discordId with
|
||||
| false ->
|
||||
printfn "2"
|
||||
let! _ = markInvitedAccepted discordId |> Async.Ignore
|
||||
printfn "3"
|
||||
try
|
||||
let! invite = getInviteFromInvitedUser discordId
|
||||
printfn "4"
|
||||
let! player = DbService.tryFindPlayer invite.Inviter
|
||||
printfn "5"
|
||||
match player with
|
||||
| Some player ->
|
||||
do! DbService.updatePlayerCurrency InviteRewardAmount player.DiscordId |> Async.Ignore
|
||||
printfn "6"
|
||||
do! match GuildEnvironment.botClientRecruit with
|
||||
| Some recruitBot -> async {
|
||||
printfn "7"
|
||||
let builder = DiscordMessageBuilder()
|
||||
builder.WithContent($"{memberName} was recruited and is now a Degen. <@{player.DiscordId}> just earned {InviteRewardAmount} 💰$GBT for their efforts!") |> ignore
|
||||
let channel = guild.GetChannel(GuildEnvironment.channelEventsHackerBattle)
|
||||
do! recruitBot.SendMessageAsync(channel, builder)
|
||||
|> Async.AwaitTask
|
||||
|> Async.Ignore
|
||||
printfn "8"
|
||||
}
|
||||
| None -> async.Return()
|
||||
do! Analytics.invitedUserAccepted invite.Code player.DiscordId discordId player.Name memberName
|
||||
|
Loading…
x
Reference in New Issue
Block a user