allows delegate to retract votes

2022-07-26 22:19:44 +08:00 · 2022-07-26 22:19:44 +08:00 · 740a625938
commit 740a625938
parent 791b1fe291
2 changed files with 335 additions and 335 deletions
--- a/agora/Agora/Stake/Scripts.hs
+++ b/agora/Agora/Stake/Scripts.hs
@ -417,8 +417,8 @@ stakeValidator stake =
                  pmatch stakeRedeemer $ \case
                    PRetractVotes _ -> unTermCont $ do
                      pguardC
-                        "Owner signs this transaction"
-                        ownerSignsTransaction
+                        "Owner or delegate signs this transaction"
+                        $ ownerSignsTransaction #|| delegateSignsTransaction

                      -- This puts trust into the Proposal. The Proposal must necessarily check
                      -- that this is not abused.