diff options
| author | Tom Smeding <t.j.smeding@uu.nl> | 2024-11-13 17:26:58 +0100 |
|---|---|---|
| committer | Tom Smeding <t.j.smeding@uu.nl> | 2024-11-13 17:26:58 +0100 |
| commit | 02db8c1929a25dda64e6cee7b7343833ee698f34 (patch) | |
| tree | 75c9b88debd46dc3c856580d31f8275413a8433c /test/Main.hs | |
| parent | 281229b7bf307132a428dde1b171e1db86637238 (diff) | |
Remove warnings
Diffstat (limited to 'test/Main.hs')
| -rw-r--r-- | test/Main.hs | 2 |
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 |