diff --git a/Bot/Analytics.fs b/Bot/Analytics.fs index 79f8a60..a054826 100644 --- a/Bot/Analytics.fs +++ b/Bot/Analytics.fs @@ -5,13 +5,15 @@ open Mixpanel let private mix = MixpanelClient(GuildEnvironment.tokenMixpanel) -let private track eventName id data = +let private track eventName id data = async { let mapObj = data |> List.map (fun e -> ( fst e , snd e |> box) ) let map = [ "distinct_id" , box (string id) "guild_id" , box (string GuildEnvironment.guildId) "env" , box GuildEnvironment.environment ] - mix.TrackAsync(eventName, mapObj @ map |> dict) |> Async.AwaitTask |> Async.Ignore + let! _ = mix.TrackAsync(eventName, mapObj @ map |> dict) |> Async.AwaitTask + return () +} let invitedUserEntered inviteCode inviterId inviteeId inviterName inviteeName = let data = [ @@ -65,10 +67,11 @@ let whiteListButton availability id name = ] track "Whitelist Button Clicked" id data -let whiteListPurchased amount id name = +let whiteListPurchased amount stock id name = let data = [ "user_display_name" , name - "purchase_amount" , string amount + "purchase_price" , string amount + "stock" , string stock ] track "Whitelist Purchased" id data diff --git a/Bot/InviteTracker.fs b/Bot/InviteTracker.fs index cf3fab6..d595569 100644 --- a/Bot/InviteTracker.fs +++ b/Bot/InviteTracker.fs @@ -518,7 +518,7 @@ let handleBuyWhitelist (ctx : IDiscordContext) = |> Async.AwaitTask |> Async.Ignore let user = ctx.GetDiscordMember() - do! Analytics.whiteListPurchased wlItem.Price user.Id user.Username + do! Analytics.whiteListPurchased wlItem.Price wlItem.Stock user.Id user.Username | false -> let embed = DiscordEmbedBuilder() embed.Description <- "Oh no! Looks like the last Whitelist spot was taken. Don't worry you weren't charged..."