github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-14 08:25:32 +03:00
Code Issues Projects Releases Wiki Activity

Factor perModule into runInModule.

Browse Source
This commit is contained in:
Rob Rix 2018-12-11 13:41:52 -05:00
parent 45c3f828d3
commit 63a5bf4b25
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/Semantic/Analysis.hs
View File

@ -95,7 +95,7 @@ evaluate lang perModule runTerm modules = do
_ -> mempty
scopeAddress <- newScope scopeEdges
frameAddress <- newFrame scopeAddress frameLinks
val <- runInModule scopeAddress frameAddress (perModule (runValueEffects . moduleBody) m)
val <- runInModule scopeAddress frameAddress m
pure ((scopeAddress, frameAddress), val)
where runInModule scopeAddress frameAddress
= runDeref
@ -103,6 +103,7 @@ evaluate lang perModule runTerm modules = do
. raiseHandler (runReader (CurrentScope scopeAddress))
. runReturn
. runLoopControl
. perModule (runValueEffects . moduleBody)
runValueEffects = raiseHandler runInterpose . runBoolean . runWhile . runFunction runTerm . either ((unit <$) . definePrelude) runTerm