simple fixes suggested from review

agora-test/Spec/Util.hs

@@ -142,13 +142,7 @@ effectSucceedsWith ::
   ScriptContext ->
   TestTree
 effectSucceedsWith tag eff datum scriptContext =
-  scriptSucceeds tag $
+  validatorSucceedsWith tag eff datum () scriptContext
-    compile
-      ( eff
-          # pforgetData (pconstantData datum)
-          # pforgetData (pconstantData ())
-          # pconstant scriptContext
-      )
 
 -- | Check that a validator script fails, given a name and arguments.
 effectFailsWith ::
@@ -161,13 +155,7 @@ effectFailsWith ::
   ScriptContext ->
   TestTree
 effectFailsWith tag eff datum scriptContext =
-  scriptFails tag $
+  validatorFailsWith tag eff datum () scriptContext
-    compile
-      ( eff
-          # pforgetData (pconstantData datum)
-          # pforgetData (pconstantData ())
-          # pconstant scriptContext
-      )
   
 -- | Check that an arbitrary script doesn't error when evaluated, given a name.
 scriptSucceeds :: String -> Script -> TestTree

agora/Agora/Effect/TreasuryWithdrawal.hs

@@ -104,11 +104,11 @@ treasuryWithdrawalValidator currSymbol = makeEffect currSymbol $
                   pdata $ ptuple # txOut.address # txOut.value
               )
             # txInfo.inputs
-        treasuryInputValues =
+    treasuryInputValues <- plet $ 
       pfilter
         # plam (\((pfield @"_0" #) . pfromData -> addr) -> pnot #$ addr #== effInput.address)
         # inputValues
-        treasuryCredentials =
+    let treasuryCredentials =
           pmap
             # plam ((pfield @"credential" #) . pfromData . (pfield @"_0" #) . pfromData)
             # treasuryInputValues