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

rename proposal redeemer Unlock to UnlockStake

Browse source
This commit is contained in:
Hongrui Fang 2022-10-24 18:14:58 +08:00
parent 3238335cdb
commit 9aa8557183
No known key found for this signature in database
GPG key ID: F10AB2CCE24113DD
5 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

4
agora-specs/Sample/Proposal/PrivilegeEscalate.hs
View file

@ -8,7 +8,7 @@ module Sample.Proposal.PrivilegeEscalate (
import Agora.Proposal (
ProposalDatum (..),
ProposalId (ProposalId),
ProposalRedeemer (Unlock, Vote),
ProposalRedeemer (UnlockStake, Vote),
ProposalStatus (VotingReady),
ProposalVotes (ProposalVotes),
ResultTag (ResultTag),
@ -102,7 +102,7 @@ mkProposalInputOutputDatum op =
in wrap op (,) proposal proposalWithVotes
mkProposalRedeemer :: Operation -> ProposalRedeemer
mkProposalRedeemer op = wrap op const (Vote defResultTag) Unlock
mkProposalRedeemer op = wrap op const (Vote defResultTag) UnlockStake
proposalRef :: TxOutRef
proposalRef = TxOutRef proposalTxRef 1

4
agora-specs/Sample/Proposal/Unlock.hs
View file

@ -35,7 +35,7 @@ import Agora.Proposal (
ProposalDatum (..),
ProposalEffectGroup,
ProposalId (..),
ProposalRedeemer (Unlock),
ProposalRedeemer (UnlockStake),
ProposalStatus (..),
ProposalVotes (..),
ResultTag (..),
@ -210,7 +210,7 @@ proposalRef :: TxOutRef
proposalRef = TxOutRef stakeTxRef 0
proposalRedeemer :: ProposalRedeemer
proposalRedeemer = Unlock
proposalRedeemer = UnlockStake
mkProposalInputDatum ::
StakeParameters ->