Sulkta-OSS/agora
2
0
Fork 0
Code Issues 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 3dacc932ca
commit fdbafcce89
No known key found for this signature in database
GPG key ID: 35CD9A71CD5D5870
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.
data Governor = Governor
{ gstORef :: TxOutRef
{ gstOutRef :: TxOutRef
-- ^ Referenced utxo will be spent to mint the GST.
, gstName :: TokenName
-- ^ Name of the GST token.
@ -234,7 +234,7 @@ deriving via (DerivePConstantViaData GovernorRedeemer PGovernorRedeemer) instanc
governorPolicy :: Governor -> ClosedTerm PMintingPolicy
governorPolicy gov =
plam $ \_ ctx' -> P.do
let oref = pconstant gov.gstORef
let oref = pconstant gov.gstOutRef
ownSymbol = pownCurrencySymbol # ctx'
mintValue <- plet $ pownMintValue # ctx'