paiment to wallets directly without walletPKHash

tweag · May 10, 2024 · 402cd7d · 402cd7d
1 parent 870f205
commit 402cd7d
Showing 1 changed file with 12 additions and 3 deletions.
diff --git a/src/Cooked/Skeleton.hs b/src/Cooked/Skeleton.hs
@@ -612,12 +612,21 @@ txSkelOutTypedDatum = Api.fromBuiltinData . Api.getDatum <=< txSkelOutUntypedDat
 
 -- ** Smart constructors for transaction outputs
 
+class HasPubKeyHash a where
+  toPubKeyHash :: a -> Api.PubKeyHash
+
+instance HasPubKeyHash Api.PubKeyHash where
+  toPubKeyHash = id
+
+instance HasPubKeyHash Wallet where
+  toPubKeyHash = walletPKHash
+
 -- | Pay a certain value to a public key.
-paysPK :: Api.PubKeyHash -> Api.Value -> TxSkelOut
-paysPK pkh value =
+paysPK :: (HasPubKeyHash a) => a -> Api.Value -> TxSkelOut
+paysPK a value =
   Pays
     ( ConcreteOutput
-        pkh
+        (toPubKeyHash a)
         Nothing
         value
         TxSkelOutNoDatum