make hlint happy

2022-03-08 13:22:37 +01:00 · 2022-03-08 13:22:37 +01:00 · 81927ad9ff
commit 81927ad9ff
parent 92b3375f5e
3 changed files with 4 additions and 3 deletions
--- a/src/Agora/AuthorityToken.hs
+++ b/src/Agora/AuthorityToken.hs
@ -76,7 +76,8 @@ authorityTokensValidIn = phoistAcyclic $
          PScriptCredential ((pfromData . (pfield @"_0" #)) -> cred) -> P.do
            PMap tokenMap <- pmatch tokenMap'
            pall
-              # ( plam $ \pair ->
+              # plam
+                ( \pair ->
                    pforgetData (pfstBuiltin # pair) #== pforgetData (pdata cred)
                )
              # tokenMap