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

parameterize PST policy only with assetclass of GST

Browse source 
...to resolve the cyclic reference between SST and PST
This commit is contained in:
fanghr 2022-04-30 18:06:12 +08:00
parent afa8c7c542
commit 62bd2dee28
3 changed files with 16 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

18
agora/Agora/Governor/Scripts.hs
View file

@ -23,6 +23,7 @@ module Agora.Governor.Scripts (
stakeValidatorHashFromGovernor,
proposalFromGovernor,
proposalValidatorHashFromGovernor,
proposalSTSymbolFromGovernor,
) where
--------------------------------------------------------------------------------
@ -698,18 +699,17 @@ atSymbolFromGovernor gov = mintingPolicySymbol policy
at = AuthorityToken $ governorSTAssetClassFromGovernor gov
policy = mkMintingPolicy $ authorityTokenPolicy at
proposalSTSymbolFromGovernor :: Governor -> CurrencySymbol
proposalSTSymbolFromGovernor gov = symbol
where
gstAC = governorSTAssetClassFromGovernor gov
policy = mkMintingPolicy $ proposalPolicy gstAC
symbol = mintingPolicySymbol policy
proposalSTAssetClassFromGovernor :: Governor -> AssetClass
proposalSTAssetClassFromGovernor gov = AssetClass (symbol, "")
where
gstAC = governorSTAssetClassFromGovernor gov
-- JUSTIFICATION: the PST policy doesn't care about the following two fields at all.
-- FIXME: refactor PST policy, parameterize it only with GST assetclass or something.
sstAC = AssetClass ("", "")
mc = -1
params = Proposal gstAC sstAC mc
policy = mkMintingPolicy $ proposalPolicy params
symbol = mintingPolicySymbol policy
symbol = proposalSTSymbolFromGovernor gov
stakeSTSymbolFromGovernor :: Governor -> CurrencySymbol
stakeSTSymbolFromGovernor gov = mintingPolicySymbol policy