Rewrite to see structure better

2024-12-22 22:31:36 +03:00 · 2018-02-12 14:28:42 -08:00 · 2018-02-12 14:28:42 -08:00 · 244b167992
commit 244b167992
parent d310661503
1 changed files with 2 additions and 1 deletions
--- a/src/Analysis/Abstract/Evaluating.hs
+++ b/src/Analysis/Abstract/Evaluating.hs
@ -36,4 +36,5 @@ evaluate :: forall v term
           )
         => term
         -> Final (Evaluating v) v
-evaluate = run @(Evaluating v) . fix (\ recur yield -> eval recur yield . project) pure
+evaluate = run @(Evaluating v) . fix go pure
+  where go recur yield = eval recur yield . project