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

apply naming suggestions by @emiflake

Browse source
This commit is contained in:
fanghr 2022-04-25 19:37:42 +08:00
parent 0874571d89
commit 4dc311d370
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
agora/Agora/Governor.hs
View file

@ -174,7 +174,7 @@ PlutusTx.makeIsDataIndexed
-- | Parameters for creating Governor scripts. -- | Parameters for creating Governor scripts.
data Governor = Governor data Governor = Governor
{ gstORef :: TxOutRef { gstOutRef :: TxOutRef
-- ^ Referenced utxo will be spent to mint the GST. -- ^ Referenced utxo will be spent to mint the GST.
, gstName :: TokenName , gstName :: TokenName
-- ^ Name of the GST token. -- ^ Name of the GST token.
@ -234,7 +234,7 @@ deriving via (DerivePConstantViaData GovernorRedeemer PGovernorRedeemer) instanc
governorPolicy :: Governor -> ClosedTerm PMintingPolicy governorPolicy :: Governor -> ClosedTerm PMintingPolicy
governorPolicy gov = governorPolicy gov =
plam $ \_ ctx' -> P.do plam $ \_ ctx' -> P.do
let oref = pconstant gov.gstORef let oref = pconstant gov.gstOutRef
ownSymbol = pownCurrencySymbol # ctx' ownSymbol = pownCurrencySymbol # ctx'
mintValue <- plet $ pownMintValue # ctx' mintValue <- plet $ pownMintValue # ctx'