From ea1faaa9a51ad47c5520245b86120a5d2870ec6d Mon Sep 17 00:00:00 2001
From: Joseph Ferano <joseph@ferano.io>
Date: Sat, 23 Apr 2022 15:01:16 +0700
Subject: [PATCH] Fix invited users admin command

---
 Bot/InviteTracker.fs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/Bot/InviteTracker.fs b/Bot/InviteTracker.fs
index b9e7fe0..9bd5c45 100644
--- a/Bot/InviteTracker.fs
+++ b/Bot/InviteTracker.fs
@@ -242,11 +242,11 @@ let getAttributions userId (ctx : IDiscordContext) =
         do! ctx.Respond(InteractionResponseType.ChannelMessageWithSource, msg)
     } :> Task
 
-let getInvitedUsersForId (ctx : IDiscordContext) =
+let getInvitedUsersForId (user : DiscordUser) (ctx : IDiscordContext) =
     task {
         do! Messaging.defer ctx
-        let! users = getInvitedUsers (ctx.GetDiscordMember().Id)
-        let! total = getInvitedUserCount (ctx.GetDiscordMember().Id)
+        let! users = getInvitedUsers (user.Id)
+        let! total = getInvitedUserCount (user.Id)
         let sb = StringBuilder()
         let mutable count = 0
         for user in users do
@@ -607,7 +607,8 @@ type Inviter() =
 
     [<SlashCommand("recruited", "Get total invites from a specific user")>]
     member this.ListInvitedPeople (ctx : InteractionContext) =
-        getInvitedUsersForId (DiscordInteractionContext ctx)
+        let ictx = DiscordInteractionContext ctx :> IDiscordContext
+        getInvitedUsersForId (ictx.GetDiscordMember()) ictx
 
 //    [<SlashCommand("invites-list", "List all the invites")>]
     member this.ListServerInvites (ctx : InteractionContext) =