From a517956901633c05abd9413356c5c3d409196574 Mon Sep 17 00:00:00 2001 From: Joseph Ferano Date: Sat, 18 Jun 2022 21:52:17 +0700 Subject: [PATCH] Fix analytics --- Bot/InviteTracker.fs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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