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

Move runTermEvaluator up to the top.

Browse Source
This commit is contained in:
Rob Rix 2018-07-17 16:14:56 -04:00
parent cecc4e895a
commit 9856ea7d77
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Semantic/Graph.hs
View File

@ -91,7 +91,8 @@ runCallGraph lang includePackages modules package = do
analyzeModule = (if includePackages then graphingPackages else id) . convergingModules . graphingModules
extractGraph (_, (graph, _)) = simplify graph
runGraphAnalysis
= runState (lowerBound @(Heap (Hole (Maybe Name) (Located Monovariant)) All Abstract))
= runTermEvaluator @_ @(Hole (Maybe Name) (Located Monovariant)) @Abstract
. runState (lowerBound @(Heap (Hole (Maybe Name) (Located Monovariant)) All Abstract))
. runFresh 0
. resumingLoadError
. resumingUnspecialized
@ -99,7 +100,6 @@ runCallGraph lang includePackages modules package = do
. resumingEvalError
. resumingResolutionError
. resumingAddressError
. runTermEvaluator @_ @(Hole (Maybe Name) (Located Monovariant)) @Abstract
. graphing
. caching
. runReader (packageInfo package)