add NoFieldSelectors flag globally

agora-specs/Sample/Proposal/Cosign.hs

@@ -128,7 +128,7 @@ mkProposalOutputDatum ps =
 mkStakeInputDatums :: Parameters -> [StakeDatum]
 mkStakeInputDatums =
   fmap (\pk -> StakeDatum perStakedGTs pk Nothing [])
-    . newCosigners
+    . (.newCosigners)
 
 -- | Create a 'TxInfo' that tries to cosign a proposal with new cosigners.
 cosign :: forall b. CombinableBuilder b => Parameters -> b
@@ -231,7 +231,7 @@ mkStakeRef idx =
 
 -- | Create a proposal redeemer which cosigns with the new cosginers.
 mkProposalRedeemer :: Parameters -> ProposalRedeemer
-mkProposalRedeemer = Cosign . sort . newCosigners
+mkProposalRedeemer = Cosign . sort . (.newCosigners)
 
 ---
 

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

agora-specs/Sample/Proposal/Vote.hs

@@ -151,11 +151,11 @@ mkStakeInputDatum params =
 
 -- | Create the proposal redeemer. In this case @'Vote' _@ will always be used.
 mkProposalRedeemer :: Parameters -> ProposalRedeemer
-mkProposalRedeemer = Vote . voteFor
+mkProposalRedeemer params = Vote params.voteFor
 
 -- | Place new proposal locks on the stake.
 mkNewLock :: Parameters -> ProposalLock
-mkNewLock = Voted proposalInputDatum.proposalId . voteFor
+mkNewLock params = Voted proposalInputDatum.proposalId params.voteFor
 
 {- | The stake redeemer that is used in 'mkTestTree'. In this case it'll always be
       'PermitVote'.