github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +03:00
Code Issues Projects Releases Wiki Activity

🔥 ev.

Browse Source
This commit is contained in:
Rob Rix 2017-11-30 19:56:44 -05:00
parent a9e5619d6c
commit f42c2ef375
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -25,8 +25,6 @@ type MonadInterpreter v m = (MonadEnv v m, MonadStore v m, MonadFail m)
type EvalResult v = Final (Interpreter v) v
type Eval' t m v = (v -> m v) -> t -> m v
-- Evaluate an expression.
-- Example:
-- evaluate @Type <term>
@ -41,11 +39,4 @@ evaluate :: forall v term
)
=> term
-> EvalResult v
evaluate = run @(Interpreter v) . fix ev pure
ev :: ( Functor (Base term)
, Recursive term
, Eval term v m (Base term)
)
=> Eval' term m v -> Eval' term m v
ev recur yield = eval recur yield . project
evaluate = run @(Interpreter v) . fix (\ recur yield -> eval recur yield . project) pure