Evaluate in the right order.

robrix · robrix · commit fdb63988f882 · 2024-03-11T10:34:28.000-04:00
diff --git a/semantic-analysis/src/Analysis/Analysis/DeadCode.hs b/semantic-analysis/src/Analysis/Analysis/DeadCode.hs
@@ -69,11 +69,11 @@ runFile eval subterms file = traverse run file
             $ runReader (fileRef file)
             $ A.runEnv @Unit
             $ runFail
-            $ convergeTerm (A.runStore @Unit . runDomain . fix (cacheTerm . eval . evalDead))
+            $ convergeTerm (A.runStore @Unit . runDomain . fix (cacheTerm . evalDead))
             $ term
-        evalDead eval subterm = do
+        evalDead eval' subterm = do
           modify (Set.delete subterm)
-          eval subterm
+          eval eval' subterm
 
 
 data Unit = Unit
