Sulkta-OSS/agora
3
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

use v2 types

Browse source
This commit is contained in:
Hongrui Fang 2022-08-15 21:27:57 +08:00
parent b453f2b216
commit fec449ceb5
36 changed files with 504 additions and 360 deletions
Download patch file Download diff file Expand all files Collapse all files

10
agora-specs/Sample/Proposal/UnlockStake.hs
View file

@ -46,16 +46,16 @@ import Plutarch.Context (
signedWith,
txId,
withDatum,
withOutRef,
withRef,
withValue,
)
import PlutusLedgerApi.V1 (
import PlutusLedgerApi.V1.Value qualified as Value
import PlutusLedgerApi.V2 (
DatumHash,
PubKeyHash,
TxOutRef (..),
ValidatorHash,
)
import PlutusLedgerApi.V1.Value qualified as Value
import PlutusTx.AssocMap qualified as AssocMap
import Sample.Proposal.Shared (stakeTxRef)
import Sample.Shared (
@ -261,7 +261,7 @@ unlockStake ps =
[ script proposalValidatorHash
, withValue pst
, withDatum i
, withOutRef (mkProposalRef idx)
, withRef (mkProposalRef idx)
]
, output $
mconcat
@ -293,7 +293,7 @@ unlockStake ps =
[ script stakeValidatorHash
, withValue stakeValue
, withDatum sInDatum
, withOutRef stakeRef
, withRef stakeRef
]
, output $
mconcat