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

encode ProposalThresholds/ProposalTimingConfig normally

Browse source
This commit is contained in:
Hongrui Fang 2022-06-29 16:26:54 +08:00 • committed by fanghr
parent 73fc473ca6
commit ce7d5d2214
3 changed files with 37 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

17
agora/Agora/Proposal.hs
View file

@ -226,15 +226,8 @@ data ProposalThresholds = ProposalThresholds
GHC.Generic
)
deriving anyclass (Generic)
deriving
( -- | @since 0.1.0
PlutusTx.ToData
, -- | @since 0.1.0
PlutusTx.FromData
, -- | @since 0.1.0
PlutusTx.UnsafeFromData
)
via (ProductIsData ProposalThresholds)
PlutusTx.makeIsDataIndexed 'ProposalThresholds [('ProposalThresholds, 0)]
{- | Map which encodes the total tally for each result.
It's important that the "shape" is consistent with the shape of 'effects'.
@ -528,11 +521,11 @@ newtype PProposalThresholds (s :: S) = PProposalThresholds
, -- | @since 0.1.0
PDataFields
)
via (DerivePNewtype' PProposalThresholds)
via (PIsDataReprInstances PProposalThresholds)
-- | @since 0.1.0
deriving via
PAsData (DerivePNewtype' PProposalThresholds)
PAsData (PIsDataReprInstances PProposalThresholds)
instance
PTryFrom PData (PAsData PProposalThresholds)
@ -541,7 +534,7 @@ instance PUnsafeLiftDecl PProposalThresholds where type PLifted PProposalThresho
-- | @since 0.1.0
deriving via
(DerivePConstantViaDataList ProposalThresholds PProposalThresholds)
(DerivePConstantViaData ProposalThresholds PProposalThresholds)
instance
(PConstantDecl ProposalThresholds)