add NoFieldSelectors flag globally

2022-09-16 16:08:33 +02:00 · 2022-09-16 16:08:33 +02:00 · 9e3521dcb4
commit 9e3521dcb4
parent 052f20334d
12 changed files with 54 additions and 57 deletions
--- a/agora-specs/Sample/Proposal/UnlockStake.hs
+++ b/agora-specs/Sample/Proposal/UnlockStake.hs
@ -245,12 +245,12 @@ mkProposalDatumPair params pid =
    mkInputVotes Creator _ =
      ProposalVotes $
        StrictMap.adjust (const 1000) defVoteFor $
-          getProposalVotes votesTemplate
+          votesTemplate.getProposalVotes
    mkInputVotes Irrelevant _ = votesTemplate
    mkInputVotes _ vc =
      ProposalVotes $
        StrictMap.adjust (const vc) defVoteFor $
-          getProposalVotes votesTemplate
+          votesTemplate.getProposalVotes

 -- | Create a 'TxInfo' that tries to unlock a stake.
 unlockStake :: forall b. CombinableBuilder b => Parameters -> b