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

apply review suggestions

Browse source
This commit is contained in:
Hongrui Fang 2022-09-07 21:43:09 +08:00 • committed by 方泓睿
parent 00d5a102b2
commit 86e60657d4
4 changed files with 90 additions and 91 deletions
Download patch file Download diff file Expand all files Collapse all files

5
agora/Agora/Proposal.hs
View file

@ -312,7 +312,7 @@ data ProposalEffectMetadata = ProposalEffectMetadata
)
via (ProductIsData ProposalEffectMetadata)
-- | @since 0.3.0
-- | @since 1.0.0
type ProposalEffectGroup = StrictMap.Map ValidatorHash ProposalEffectMetadata
{- | Haskell-level datum for Proposal scripts.
@ -725,7 +725,7 @@ newtype PProposalDatum (s :: S) = PProposalDatum
PEq
)
-- | @since 0.2.0
-- | @since 1.0.0
instance DerivePlutusType PProposalDatum where
type DPTStrat _ = PlutusTypeDataList
@ -798,7 +798,6 @@ phasNeutralEffect = phoistAcyclic $ PAssocMap.pany # PAssocMap.pnull
-}
pisEffectsVotesCompatible ::
forall (s :: S).
(PIsListLike PList PResultTag) =>
Term
s
( PMap 'Sorted PResultTag PProposalEffectGroup