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

add PlutusTX validatorHashToTokenName

Browse source
This commit is contained in:
fanghr 2022-05-06 13:22:28 +08:00
parent 297b6a59ef
commit 3b21cadd26
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
agora/Agora/Stake/Scripts.hs
View file

@ -22,8 +22,8 @@ import Agora.Utils (
psymbolValueOf,
ptokenSpent,
ptxSignedBy,
pvalidatorHashToTokenName,
pvalueSpent,
validatorHashToTokenName,
)
import Plutarch.Api.V1 (
PCredential (PPubKeyCredential, PScriptCredential),
@ -117,7 +117,7 @@ stakePolicy gtClassRef =
PScriptCredential validatorHash -> P.do
stakeDatum <- pletFields @'["owner", "stakedAmount"] stakeDatum'
tn :: Term _ PTokenName <- plet (validatorHashToTokenName $ pfromData $ pfield @"_0" # validatorHash)
tn :: Term _ PTokenName <- plet (pvalidatorHashToTokenName $ pfromData $ pfield @"_0" # validatorHash)
let stValue =
psingletonValue