github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-18 12:21:57 +03:00
Code Issues Projects Releases Wiki Activity

Use ModuleEffects in ImportGraphEff.

Browse Source
This commit is contained in:
Rob Rix 2018-08-15 11:33:30 -04:00
parent c04fc7d048
commit 93d79dfd30
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Semantic/Graph.hs
View File

@ -194,14 +194,9 @@ runImportGraph lang (package :: Package term) f =
in extractGraph <$> runEvaluator (runImportGraphAnalysis (evaluate lang analyzeModule id runAddressEffects (Concrete.runFunction coerce coerce) (ModuleTable.toPairs (packageModules package) >>= toList . snd)))
newtype ImportGraphEff address outerEffects a = ImportGraphEff
{ runImportGraphEff :: Eff ( ValueEffects address (Value address (ImportGraphEff address outerEffects))
( Exc (LoopControl address)
': Exc (Return address)
': Env address
': Deref (Value address (ImportGraphEff address outerEffects))
': Allocator address
': Reader ModuleInfo
': Reader Span
{ runImportGraphEff :: Eff ( ValueEffects address (Value address (ImportGraphEff address outerEffects))
( ModuleEffects address (Value address (ImportGraphEff address outerEffects))
( Reader Span
': Reader PackageInfo
': Modules address
': Reader (ModuleTable (NonEmpty (Module (ModuleResult address))))
@ -216,7 +211,7 @@ newtype ImportGraphEff address outerEffects a = ImportGraphEff
': Fresh
': State (Heap address (Value address (ImportGraphEff address outerEffects)))
': outerEffects
)) a
))) a
}