github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00
Code Issues Projects Releases Wiki Activity

Rewrite to see structure better

Browse Source
This commit is contained in:
Timothy Clem 2018-02-12 14:28:42 -08:00
parent d310661503
commit 244b167992
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Analysis/Abstract/Evaluating.hs
View File

@ -36,4 +36,5 @@ evaluate :: forall v term
) )
=> term => term
-> Final (Evaluating v) v -> 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