diff --git a/src/Agora/Stake.hs b/src/Agora/Stake.hs index 74a4c65..cc87ae8 100644 --- a/src/Agora/Stake.hs +++ b/src/Agora/Stake.hs @@ -228,7 +228,8 @@ stakeValidator stake = mintedST #== -1 passert "Stake unlocked" $ pnot #$ stakeLocked # stakeDatum' - passert "Owner signs this transaction" $ + passert + "Owner signs this transaction" ownerSignsTransaction popaque (pconstant ()) PDepositWithdraw r -> P.do @@ -236,7 +237,8 @@ stakeValidator stake = spentST #== 1 passert "Stake unlocked" $ pnot #$ stakeLocked # stakeDatum' - passert "Owner signs this transaction" $ + passert + "Owner signs this transaction" ownerSignsTransaction passert "A UTXO must exist with the correct output" $ anyOutput @(PStakeDatum gt) # txInfo'