From 657031508ec53b28023a74ad3b807e833b62b30f Mon Sep 17 00:00:00 2001 From: Jack Hodgkinson <30505104+jhodgdev@users.noreply.github.com> Date: Fri, 4 Mar 2022 13:09:05 +0000 Subject: [PATCH] Applied linting suggestions --- src/Agora/Treasury.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Agora/Treasury.hs b/src/Agora/Treasury.hs index 2e309bb..9bf407f 100644 --- a/src/Agora/Treasury.hs +++ b/src/Agora/Treasury.hs @@ -50,7 +50,7 @@ treasuryV cs tn = plam $ \_d r ctx' -> P.do let mint :: Term s PValue mint = txInfo.mint gatAmountMinted :: Term s PInteger - gatAmountMinted = passetClassValueOf # (pconstant cs) # (pconstant tn) # mint + gatAmountMinted = passetClassValueOf # pconstant cs # pconstant tn # mint pif (gatAmountMinted #== -1) -- If the amount of GATS burned is not one, ...