From 02db8c1929a25dda64e6cee7b7343833ee698f34 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Wed, 13 Nov 2024 17:26:58 +0100 Subject: Remove warnings --- test/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'test') diff --git a/test/Main.hs b/test/Main.hs index 72b7809..d617228 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -205,7 +205,7 @@ adTestGen expr envGenerator = property $ do input <- forAllWith (showEnv env) envGenerator let outPrimal = interpretOpen False input expr gradFwd = gradientByForward knownEnv expr input - (ppdterm, (outChad, gradCHAD)) = gradientByCHAD' (SimplIters 0) knownEnv expr input + (_ppdterm, (outChad, gradCHAD)) = gradientByCHAD' (SimplIters 0) knownEnv expr input (ppdterm_S, (outChad_S, gradCHAD_S)) = gradientByCHAD' SimplFix knownEnv expr input (ppdterm_S20, _) = gradientByCHAD' (SimplIters 20) knownEnv expr input scFwd = envScalars env gradFwd -- cgit v1.2.3-70-g09d2