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

improve readability

Browse source
This commit is contained in:
Hongrui Fang 2022-11-28 17:22:47 +08:00
parent 857f1bfaa9
commit 5f9e6f57b2
1 changed files with 6 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
agora/Agora/Stake/Redeemers.hs
View file

@ -293,15 +293,12 @@ premoveLocks =
createdAt createdAt
) = ) =
let notInCooldown = createdAt + unlockCooldown #<= lowerBound let notInCooldown = createdAt + unlockCooldown #<= lowerBound
in foldl1 in pif shouldRemoveAllLocks (pconstant True) $
(#||) -- Fail the transaction if a voter lock is in cooldown.
[ shouldRemoveAllLocks passert
, -- Fail the transaction if a voter lock is in cooldown.∏ "Voter lock shouldn't be in cooldown"
passert notInCooldown
"Voter lock shouldn't be in cooldown" (pconstant True)
notInCooldown
(pconstant True)
]
shouldRemoveLock = shouldRemoveLock =
flip flip