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

fix a typo

Browse source 
Co-authored-by: emiflake <emily@liqwid.finance>
This commit is contained in:
方泓睿 2022-11-07 19:27:09 +08:00 • committed by Hongrui Fang
parent 3eb71a55a3
commit a23afda3f5
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -358,11 +358,11 @@ mkStakeValidator impl sstSymbol pstClass gtClass =
allHaveSameOrOwnedByDelegatee' = allHaveSameOrOwnedByDelegatee' =
let delegated = let delegated =
dF.delegatedTo #== firstStakeInputDatumF.delegatedTo dF.delegatedTo #== firstStakeInputDatumF.delegatedTo
ownedByDelagtee = ownedByDelegatee =
pdata (pdjust # dF.owner) pdata (pdjust # dF.owner)
#== firstStakeInputDatumF.delegatedTo #== firstStakeInputDatumF.delegatedTo
in allHaveSameDelegatee in allHaveSameDelegatee
#&& (delegated #|| ownedByDelagtee) #&& (delegated #|| ownedByDelegatee)
in pcon $ PPair allHaveSameOwner' allHaveSameOrOwnedByDelegatee' in pcon $ PPair allHaveSameOwner' allHaveSameOrOwnedByDelegatee'
) )
# pcon (PPair (pconstant True) (pconstant True)) # pcon (PPair (pconstant True) (pconstant True))