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

rename AlterTrParams to AlterTreasuryParams

Browse source
This commit is contained in:
Emily Martins 2022-03-04 17:16:16 +01:00
parent 657031508e
commit 16211998f6
3 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/Agora/Treasury.hs
View file

@ -38,12 +38,12 @@ treasuryV cs tn = plam $ \_d r ctx' -> P.do
-- plet required fields from script context.
ctx <- pletFields @["txInfo", "purpose"] ctx'
-- Ensure redeemer type is valid.
PAlterTrParams _ <- pmatch $ pfromData r
-- Ensure that script is for burning i.e. minting a negative amount.
PMinting _ <- pmatch ctx.purpose
-- Ensure redeemer type is valid.
PAlterTreasuryParams _ <- pmatch $ pfromData r
-- Get the minted value from txInfo.
txInfo' <- plet ctx.txInfo
txInfo <- pletFields @'["mint"] txInfo'
@ -84,7 +84,7 @@ newtype PTreasuryDatum (s :: S)
newtype PTreasuryRedeemer (s :: S)
= -- | Alters treasury parameters, subject to the burning of a
-- governance authority token.
PAlterTrParams (Term s (PDataRecord '[]))
PAlterTreasuryParams (Term s (PDataRecord '[]))
deriving stock (GHC.Generic)
deriving anyclass (Generic, PIsDataRepr)
deriving