Potential fix for leaderboards

This commit is contained in:
Joseph Ferano 2022-01-24 04:43:22 +07:00
parent 7585ae26b2
commit 3f42296818
2 changed files with 10 additions and 2 deletions

View File

@ -85,6 +85,8 @@ module Commands =
let leaderboard (ctx : InteractionContext) = let leaderboard (ctx : InteractionContext) =
async { async {
// do! ctx.CreateResponseAsync(InteractionResponseType.DeferredChannelMessageWithSource) |> Async.AwaitTask
let builder = DiscordInteractionResponseBuilder() let builder = DiscordInteractionResponseBuilder()
builder.IsEphemeral <- true builder.IsEphemeral <- true
@ -96,8 +98,9 @@ module Commands =
|> Array.mapi (fun i p -> { Position = string (i + 1) ; Amount = string p.Bank ; Name = p.Name }) |> Array.mapi (fun i p -> { Position = string (i + 1) ; Amount = string p.Bank ; Name = p.Name })
|> Formatter.Format |> Formatter.Format
builder.Content <- if not <| String.IsNullOrEmpty content then $"```{content}```" else "There are no active hackers" builder.Content <- if not <| String.IsNullOrEmpty content then $"```{content}```" else "There are no active hackers"
do! ctx.CreateResponseAsync(InteractionResponseType.ChannelMessageWithSource, builder) do! ctx.Interaction.CreateResponseAsync(InteractionResponseType.ChannelMessageWithSource, builder)
|> Async.AwaitTask |> Async.AwaitTask
|> Async.Ignore
} |> Async.StartAsTask } |> Async.StartAsTask
:> Task :> Task

View File

@ -50,6 +50,11 @@ let updatePlayer player =
let getTopPlayers number = let getTopPlayers number =
async { async {
let! entries = players.Find(fun _ -> true).SortBy(fun e -> e.Player.Bank).Limit(Nullable<int>(number)).ToListAsync() |> Async.AwaitTask let! entries =
players.Find(fun _ -> true)
.Limit(Nullable<int>(number))
.SortBy(fun e -> e.Player.Bank)
.ToListAsync()
|> Async.AwaitTask
return entries |> Seq.map (fun e -> e.Player) return entries |> Seq.map (fun e -> e.Player)
} }