Remove warnings

1 files changed, 1 insertions, 1 deletions

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