-- | Objects from which a public key hash can be extracted module Cooked.Conversion.ToPubKeyHash where import Cooked.Wallet import PlutusLedgerApi.V3 qualified as Api class ToPubKeyHash a where toPubKeyHash :: a -> Api.PubKeyHash instance ToPubKeyHash Api.PubKeyHash where toPubKeyHash :: PubKeyHash -> PubKeyHash toPubKeyHash = PubKeyHash -> PubKeyHash forall a. a -> a id instance ToPubKeyHash Wallet where toPubKeyHash :: Wallet -> PubKeyHash toPubKeyHash = Wallet -> PubKeyHash walletPKHash