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

apply hlint suggestions; fix the ci

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

4
agora/Agora/Governor.hs
View file

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

2
agora/Agora/Proposal.hs
View file

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