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:
parent
63a5bf4b25
commit
0d7625d9ab
@ -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.
|
||||
--
|
||||
|
Loading…
Reference in New Issue
Block a user