Print debugging

This commit is contained in:
Joseph Ferano 2022-05-06 19:51:25 +07:00
parent a60f12c15e
commit 8cb20b414c

View File

@ -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