Sulkta-OSS/agora
2
0
Fork 0
Code Issues 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 2c3a1c0363
commit 2b59923059
No known key found for this signature in database
GPG key ID: F10AB2CCE24113DD
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