1
1
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00

📝 evalTerm.

This commit is contained in:
Rob Rix 2018-10-26 12:58:30 -04:00
parent 33f20e0cf5
commit 55df272a2a

View File

@ -68,6 +68,9 @@ evaluate lang perModule runTerm modules = do
. runReturn
. runLoopControl
-- | Evaluate a term recursively, applying the passed function at every recursive position.
--
-- This calls out to the 'Evaluatable' instances, will be passed to 'runValueEffects', and can have other functions composed after it to e.g. intercept effects arising in the evaluation of the term.
evalTerm :: ( Carrier sig m
, Declarations term
, Evaluatable (Base term)