JosephFerano/discord-bot-game
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

I guess it's fixed

Browse Source
This commit is contained in:
Joseph Ferano 2022-04-04 18:38:04 +07:00
parent 0853463120
commit ac3e40d50f
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Bot/Analytics.fs
View File

@ -5,13 +5,15 @@ open Mixpanel
let private mix = MixpanelClient(GuildEnvironment.tokenMixpanel) 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 mapObj = data |> List.map (fun e -> ( fst e , snd e |> box) )
let map = let map =
[ "distinct_id" , box (string id) [ "distinct_id" , box (string id)
"guild_id" , box (string GuildEnvironment.guildId) "guild_id" , box (string GuildEnvironment.guildId)
"env" , box GuildEnvironment.environment ] "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 invitedUserEntered inviteCode inviterId inviteeId inviterName inviteeName =
let data = [ let data = [
@ -65,10 +67,11 @@ let whiteListButton availability id name =
] ]
track "Whitelist Button Clicked" id data track "Whitelist Button Clicked" id data
let whiteListPurchased amount id name = let whiteListPurchased amount stock id name =
let data = [ let data = [
"user_display_name" , name "user_display_name" , name
"purchase_amount" , string amount "purchase_price" , string amount
"stock" , string stock
] ]
track "Whitelist Purchased" id data track "Whitelist Purchased" id data

2
Bot/InviteTracker.fs
View File

@ -518,7 +518,7 @@ let handleBuyWhitelist (ctx : IDiscordContext) =
|> Async.AwaitTask |> Async.AwaitTask
|> Async.Ignore |> Async.Ignore
let user = ctx.GetDiscordMember() 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 -> | false ->
let embed = DiscordEmbedBuilder() let embed = DiscordEmbedBuilder()
embed.Description <- "Oh no! Looks like the last Whitelist spot was taken. Don't worry you weren't charged..." embed.Description <- "Oh no! Looks like the last Whitelist spot was taken. Don't worry you weren't charged..."