diff --git a/agora/Agora/Stake/Scripts.hs b/agora/Agora/Stake/Scripts.hs index 1623c33..013ef0e 100644 --- a/agora/Agora/Stake/Scripts.hs +++ b/agora/Agora/Stake/Scripts.hs @@ -358,11 +358,11 @@ mkStakeValidator impl sstSymbol pstClass gtClass = allHaveSameOrOwnedByDelegatee' = let delegated = dF.delegatedTo #== firstStakeInputDatumF.delegatedTo - ownedByDelagtee = + ownedByDelegatee = pdata (pdjust # dF.owner) #== firstStakeInputDatumF.delegatedTo in allHaveSameDelegatee - #&& (delegated #|| ownedByDelagtee) + #&& (delegated #|| ownedByDelegatee) in pcon $ PPair allHaveSameOwner' allHaveSameOrOwnedByDelegatee' ) # pcon (PPair (pconstant True) (pconstant True))