diff --git a/Bot/InviteTracker.fs b/Bot/InviteTracker.fs index e70cb64..85493cc 100644 --- a/Bot/InviteTracker.fs +++ b/Bot/InviteTracker.fs @@ -291,7 +291,11 @@ let private processNewUser (eventArgs : GuildMemberAddEventArgs) = do! updateInviteCount invite.Code invite.Uses do! addInvitedUser eventArgs.Member.Id inviterId invite.Code |> Async.Ignore with ex -> printfn $"Tried to add existing user {eventArgs.Member.Id}:{eventArgs.Member.Username} to invites: {ex.Message}" - do! Analytics.invitedUserEntered invite.Code invite.Inviter.Id eventArgs.Member.Id invite.Inviter.Username eventArgs.Member.Username + match! DbService.tryFindPlayer inviterId with + | Some inviter -> + do! Analytics.invitedUserEntered invite.Code inviter.DiscordId eventArgs.Member.Id inviter.Name eventArgs.Member.Username + | None -> + do! Analytics.invitedUserEntered invite.Code inviterId eventArgs.Member.Id "Unknown" eventArgs.Member.Username | None -> () } :> Task