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

implement merge sort to imporve perf of some utils

Browse source
This commit is contained in:
fanghr 2022-05-04 20:08:42 +08:00
parent 0651c19ca6
commit 0ab1a0a440
2 changed files with 98 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

2
agora/Agora/Proposal/Scripts.hs
View file

@ -169,7 +169,7 @@ proposalValidator proposal =
newSigs <- plet $ pfield @"newCosigners" # r
passert "Cosigners are unique" $
pisUniq # newSigs
pisUniq # phoistAcyclic (plam $ \(pfromData -> x) (pfromData -> y) -> x #< y) # newSigs
passert "Signed by all new cosigners" $
pall # signedBy # newSigs