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

renamed shared sample

Browse source
This commit is contained in:
Seungheon Oh 2022-10-19 19:39:46 -05:00
parent 6a0cfcd6ce
commit 4f5504d1d1
8 changed files with 55 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

4
agora/Agora/Effect/GovernorMutation.hs
View file

@ -150,7 +150,7 @@ mutateGovernorValidator ::
:--> PValidator
)
mutateGovernorValidator =
plam $ \govValidatorHash gtSymbol -> makeEffect @PMutateGovernorDatum $
plam $ \govValidatorHash gstSymbol -> makeEffect @PMutateGovernorDatum $
\_gatCs (effectDatum :: Term _ PMutateGovernorDatum) _ txInfo -> unTermCont $ do
effectDatumF <- pletAllC effectDatum
txInfoF <- pletFieldsC @'["inputs", "outputs", "datums", "redeemers"] txInfo
@ -188,7 +188,7 @@ mutateGovernorValidator =
inputF.outRef #== effectDatumF.governorRef
, ptraceIfFalse "Governor UTxO should carry GST" $
psymbolValueOf
# gtSymbol
# gstSymbol
# (pfield @"value" # inputF.resolved)
#== 1
, ptraceIfFalse "Governor validator run" $