1
1
mirror of https://github.com/github/semantic.git synced 2024-12-14 17:31:48 +03:00

Rename runValueEffects to runDomainEffects.

This commit is contained in:
Rob Rix 2018-12-11 13:44:47 -05:00
parent 63a5bf4b25
commit 0d7625d9ab

View File

@ -103,9 +103,9 @@ evaluate lang perModule runTerm modules = do
. raiseHandler (runReader (CurrentScope scopeAddress))
. runReturn
. runLoopControl
. perModule (runValueEffects . moduleBody)
. perModule (runDomainEffects . moduleBody)
runValueEffects = raiseHandler runInterpose . runBoolean . runWhile . runFunction runTerm . either ((unit <$) . definePrelude) runTerm
runDomainEffects = raiseHandler runInterpose . runBoolean . runWhile . runFunction runTerm . either ((unit <$) . definePrelude) runTerm
-- | Evaluate a term recursively, applying the passed function at every recursive position.
--