-- | 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