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

simple tests for setting delegate

Browse source
This commit is contained in:
Hongrui Fang 2022-07-25 22:07:27 +08:00
parent 2d6e8b4c4e
commit be1eabc261
No known key found for this signature in database
GPG key ID: 1E0454204FC7D755
5 changed files with 238 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -522,7 +522,7 @@ stakeValidator stake =
PDelegateTo ((pfield @"pkh" #) -> pkh) -> unTermCont $ do
pguardC "Cannot delegate to the owner" $
pnot #$ stakeDatum.owner #== pfromData pkh
pnot #$ stakeDatum.owner #== pfromData pkh
pure $ setDelegate #$ pcon $ PDJust $ pdcons @"_0" # pkh #$ pdnil
------------------------------------------------------------