diff --git a/agora/Agora/Stake/Scripts.hs b/agora/Agora/Stake/Scripts.hs index 7c3d9c7..270eea3 100644 --- a/agora/Agora/Stake/Scripts.hs +++ b/agora/Agora/Stake/Scripts.hs @@ -414,13 +414,16 @@ mkStakeValidator impl sstSymbol pstClass gtClass = # firstStakeInputDatumF.owner delegateSignsTransaction = - ( authCheckHelperF.allOwnByOrDelegatedToTheFirstOwner - #|| authCheckHelperF.allOwnByOrDelegatedToTheFirstDelegatee + ( authCheckHelperF.allOwnByOrDelegatedToTheFirstDelegatee + #&& pmaybeData + # pconstant False + # plam ((authorizedBy #) . pfromData) + # pfromData firstStakeInputDatumF.delegatedTo ) - #&& pmaybeData - # pconstant False - # plam ((authorizedBy #) . pfromData) - # pfromData firstStakeInputDatumF.delegatedTo + #|| ( authCheckHelperF.allOwnByOrDelegatedToTheFirstOwner + #&& authorizedBy + # firstStakeInputDatumF.owner + ) signedBy = pif