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

Trying to make hlint happy

Browse source
This commit is contained in:
Riley Kilgore 2022-03-10 06:24:13 -08:00
parent d0595f4869
commit 1b3d0c2ea8
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/Agora/MultiSig.hs
View file

@ -82,11 +82,11 @@ pvalidatedByMultisig =
ctx <- pletFields @'["txInfo", "purpose"] ctx' ctx <- pletFields @'["txInfo", "purpose"] ctx'
multi <- pletFields @'["keys", "minSigs"] multi' multi <- pletFields @'["keys", "minSigs"] multi'
let signatories = pfield @"signatories" # ctx.txInfo let signatories = pfield @"signatories" # ctx.txInfo
( (pfromData multi.minSigs) (pfromData multi.minSigs)
#<= ( plength #$ pfilter #<= ( plength #$ pfilter
# ( plam $ \a -> # plam
(pelem # a # pfromData signatories) ( \a ->
) pelem # a # pfromData signatories
# multi.keys )
) # multi.keys
) )