Add recipient to issue

input-output-hk · Jan 17, 2025 · e4033bb · e4033bb
1 parent cc85f09
commit e4033bb
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git 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
@@ -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)