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

use validatorHashToTokenName

Browse source
This commit is contained in:
fanghr 2022-05-06 17:07:10 +08:00
parent 2a993ae777
commit e67dd21d06
No known key found for this signature in database
GPG key ID: 35CD9A71CD5D5870
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -86,6 +86,7 @@ import Agora.Utils (
pvalueSpent,
scriptHashFromAddress,
validatorHashToAddress,
validatorHashToTokenName,
)
--------------------------------------------------------------------------------
@ -129,7 +130,6 @@ import Plutarch.TryFrom (ptryFrom)
import Plutus.V1.Ledger.Api (
CurrencySymbol (..),
MintingPolicy,
TokenName (..),
)
import Plutus.V1.Ledger.Scripts (ValidatorHash (..))
import Plutus.V1.Ledger.Value (
@ -735,8 +735,7 @@ stakeSTAssetClassFromGovernor gov = AssetClass (symbol, tokenName)
symbol = stakeSTSymbolFromGovernor gov
-- Tag with the address where the token is being sent to.
ValidatorHash hash = stakeValidatorHashFromGovernor gov
tokenName = TokenName hash
tokenName = validatorHashToTokenName $ stakeValidatorHashFromGovernor gov
stakeFromGovernor :: Governor -> Stake
stakeFromGovernor gov =