apply hlint suggestions; fix the ci

This commit is contained in:
fanghr 2022-04-19 12:12:46 +08:00
parent dd99543449
commit afc48aa9f8
2 changed files with 3 additions and 3 deletions

View file

@ -35,7 +35,7 @@ import Agora.Proposal (
PProposalThresholds,
ProposalId,
ProposalThresholds,
pnextProposalId
pnextProposalId,
)
import Agora.Utils (
allInputs,
@ -202,7 +202,7 @@ governorValidator params =
newParams <- pletFields @'["proposalThresholds", "nextProposalId"] newDatum'
mint <- plet $ pfromData $ pfield @"mint" # txInfo
mint' <- plet $ pto $ pto $ pto $ mint
mint' <- plet $ pto $ pto $ pto mint
case redeemer of
PCreateProposal _ -> P.do

View file

@ -32,7 +32,7 @@ module Agora.Proposal (
proposalDatumValid,
-- * Utils
pnextProposalId
pnextProposalId,
) where
import GHC.Generics qualified as GHC