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

2
Bot/InviteTracker.fs
View File

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