Fullfill all pending

This commit is contained in:
Joseph Ferano 2022-07-08 17:18:43 +07:00
parent 8fce5e686a
commit 19d2f2de9f

View File

@ -17,8 +17,8 @@ type NftTransfer = {
UserWallet : string
}
printfn "Getting Wallet Addresses:"
let pending =
prodConnStr
|> Sql.connect
@ -26,7 +26,7 @@ let pending =
SELECT u.id, u.display_name, token.name, token.address, mpa.tx_wallet FROM gen_one_token token
JOIN mint_pass_assignment mpa on token.id = mpa.token_id
JOIN "user" u on mpa.recipient_id = u.id
WHERE mpa.fulfilled = false AND token.locked = false AND u.id <> '815567646606229514'
WHERE mpa.fulfilled = false AND token.locked = false
ORDER BY mpa.created_at;
"""
|> Sql.execute (fun reader ->
@ -92,6 +92,5 @@ let transfer (nft : NftTransfer) =
else
printfn $"{result.StandardError}"
for nft in testSample do
for nft in pending do
transfer nft