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