I am using the following function from the Plutus pioneer program:
stakeReferenceLedgerToPlutus :: Ledger.StakeReference StandardCrypto -> Maybe Plutus.StakingCredential
stakeReferenceLedgerToPlutus (StakeRefPtr (Ptr (SlotNo x) y z)) = Just $ StakingPtr (fromIntegral x) (fromIntegral y) (fromIntegral z)
But the latest release of Plutus-apps seems to require a change, because fromIntegral y
does not work anymore. See error below:
error:
• No instance for (Integral Cardano.Ledger.BaseTypes.TxIx)
arising from a use of ‘fromIntegral’
• In the second argument of ‘StakingPtr’, namely ‘(fromIntegral y)’
The same is true for fromIntegral z
but for Cardano.Ledger.BaseTypes.CertIx
.
Any help is appreciated.