From e82b1eed9f9d749afb1e47f0bc8f35e806fda9f6 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Wed, 5 Nov 2025 22:29:41 +0100
Subject: Some extra Map optimisations

---
 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 d586973..c2141ee 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -351,7 +351,7 @@ adTestGenChad testname config env envGenerator expr exprS primalSfun | Dict <- e
       dtermSChad0 = ELet ext (EConst ext STF64 1.0) $ chad' config env exprS
       dtermSChadS = simplifyFix dtermSChad0
       dtermSChadSUS = simplifyFix $ unMonoid dtermSChadS
-      dtermSChadSUSP = pruneExpr env dtermSChadSUS
+      dtermSChadSUSP = simplifyFix $ pruneExpr env dtermSChadSUS
   in
   withResource' (do (fun, output) <- makeFwdADArtifactCompile env exprS
                     when (not (null output)) $
-- 
cgit v1.2.3-70-g09d2