From e4033bbcd06e4ec6cc56777f739061a87af41366 Mon Sep 17 00:00:00 2001
From: Amir Rad <ahmr10@gmail.com>
Date: Thu, 16 Jan 2025 21:29:23 +0000
Subject: [PATCH] Add recipient to issue
---
src/lib/Wst/Server.hs | 4 ++--
src/lib/Wst/Server/Types.hs | 1 +
2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/lib/Wst/Server.hs b/src/lib/Wst/Server.hs
index 2997610..c763b51 100644
--- a/src/lib/Wst/Server.hs
+++ b/src/lib/Wst/Server.hs
@@ -188,8 +188,8 @@ issueProgrammableTokenEndpoint :: forall era env m.
, MonadUtxoQuery m
)
=> IssueProgrammableTokenArgs -> m (TextEnvelopeJSON (C.Tx era))
-issueProgrammableTokenEndpoint IssueProgrammableTokenArgs{itaAssetName, itaQuantity, itaIssuer} = do
- let C.ShelleyAddress _network cred _stake = itaIssuer
+issueProgrammableTokenEndpoint IssueProgrammableTokenArgs{itaAssetName, itaQuantity, itaIssuer, itaRecipient} = do
+ let C.ShelleyAddress _network cred _stake = itaRecipient
destinationCredential = C.fromShelleyPaymentCredential cred
operatorEnv <- Env.loadOperatorEnvFromAddress itaIssuer
dirEnv <- asks Env.directoryEnv
diff --git a/src/lib/Wst/Server/Types.hs b/src/lib/Wst/Server/Types.hs
index c6d2300..5bf79b8 100644
--- a/src/lib/Wst/Server/Types.hs
+++ b/src/lib/Wst/Server/Types.hs
@@ -108,6 +108,7 @@ data IssueProgrammableTokenArgs =
{ itaIssuer :: C.Address C.ShelleyAddr
, itaAssetName :: AssetName
, itaQuantity :: Quantity
+ , itaRecipient :: C.Address C.ShelleyAddr
}
deriving stock (Eq, Show, Generic)