From e46ee6405e8e436bcc9d5d5e56a4dde7349c0785 Mon Sep 17 00:00:00 2001
From: Riley Kilgore <riley-kilgore@github.com>
Date: Thu, 10 Mar 2022 06:24:13 -0800
Subject: [PATCH] Trying to make hlint happy

---
 src/Agora/MultiSig.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/Agora/MultiSig.hs b/src/Agora/MultiSig.hs
index acbb4e9..e074bfe 100644
--- 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
+          )