Trying to make hlint happy

2022-03-10 06:24:13 -08:00 · 2022-03-10 06:24:13 -08:00 · e46ee6405e
commit e46ee6405e
parent 9f390c8be5
1 changed files with 8 additions and 8 deletions
--- a/src/Agora/MultiSig.hs
+++ b/src/Agora/MultiSig.hs
@ -82,11 +82,11 @@ pvalidatedByMultisig =
    ctx <- pletFields @'["txInfo", "purpose"] ctx'
    multi <- pletFields @'["keys", "minSigs"] multi'
    let signatories = pfield @"signatories" # ctx.txInfo
-    ( (pfromData multi.minSigs)
-        #<= ( plength #$ pfilter
-                # ( plam $ \a ->
-                      (pelem # a # pfromData signatories)
-                  )
-                # multi.keys
-            )
-      )
+    (pfromData multi.minSigs)
+      #<= ( plength #$ pfilter
+              # plam
+                ( \a ->
+                    pelem # a # pfromData signatories
+                )
+              # multi.keys
+          )