Expose appendCertificateToTx in the JS API

Author: palas

cardano-wasm/lib-wrapper/unsigned-tx.d.ts

@@ -27,6 +27,13 @@ declare interface UnsignedTx {
      */
     addSimpleTxOut(destAddr: string, lovelaceAmount: bigint): UnsignedTx;
 
+    /**
+     * Appends a certificate (in CBOR hex string format) to the transaction.
+     * @param certCbor The certificate in CBOR hex string format.
+     * @returns The `UnsignedTx` object with the added certificate.
+     */
+    appendCertificateToTx(certCbor: string): UnsignedTx;
+
     /**
      * Sets the fee for the transaction.
      * @param lovelaceAmount The fee amount in lovelaces.

cardano-wasm/src-lib/Cardano/Wasm/Api/Info.hs

@@ -302,6 +302,16 @@ apiInfo =
                     , methodReturnType = Fluent
                     , methodReturnDoc = "The `UnsignedTx` object with the added output."
                     }
+              , MethodInfoEntry $
+                  MethodInfo
+                    { methodName = "appendCertificateToTx"
+                    , methodDoc = "Appends a certificate (in CBOR hex string format) to the transaction."
+                    , methodParams =
+                        [ ParamInfo "certCbor" TSString "The certificate in CBOR hex string format."
+                        ]
+                    , methodReturnType = Fluent
+                    , methodReturnDoc = "The `UnsignedTx` object with the added certificate."
+                    }
               , MethodInfoEntry $
                   MethodInfo
                     { methodName = "setFee"

cardano-wasm/src-wasm/Cardano/Wasm/Internal/JavaScript/Bridge.hs

@@ -353,6 +353,9 @@ foreign export javascript "addTxInput"
 foreign export javascript "addSimpleTxOut"
   addSimpleTxOut :: JSUnsignedTx -> JSString -> JSCoin -> IO JSUnsignedTx
 
+foreign export javascript "appendCertificateToTx"
+  appendCertificateToTx :: JSUnsignedTx -> JSString -> IO JSUnsignedTx
+
 foreign export javascript "setFee"
   setFee :: JSUnsignedTx -> JSCoin -> IO JSUnsignedTx
 
@@ -394,6 +397,16 @@ addSimpleTxOut jsUnsignedTx jsDestAddr jsCoin =
           <*> fromJSVal jsCoin
       )
 
+-- | Append a certificate (in CBOR hex string format) to an unsigned transaction.
+appendCertificateToTx :: HasCallStack => JSUnsignedTx -> JSString -> IO JSUnsignedTx
+appendCertificateToTx jsUnsignedTx jsCertCbor =
+  toJSVal
+    =<< join
+      ( Wasm.appendCertificateToTxImpl
+          <$> fromJSVal jsUnsignedTx
+          <*> fromJSVal jsCertCbor
+      )
+
 -- | Set the transaction fee for an unsigned transaction.
 setFee :: HasCallStack => JSUnsignedTx -> JSCoin -> IO JSUnsignedTx
 setFee jsUnsignedTx jsCoin =