Add recipient to issue endpoint (#69)

* Add recipient to issue

* Update schema

---------

Co-authored-by: Jann Müller <[email protected]>

Author: amirmrad

generated/openapi/schema.json

@@ -54,12 +54,16 @@
                     },
                     "quantity": {
                         "$ref": "#/components/schemas/Quantity"
+                    },
+                    "recipient": {
+                        "$ref": "#/components/schemas/Address"
                     }
                 },
                 "required": [
                     "issuer",
                     "asset_name",
-                    "quantity"
+                    "quantity",
+                    "recipient"
                 ],
                 "type": "object"
             },

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

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)