github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 21:01:35 +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

11
src/Semantic/Graph.hs
View File

@ -195,13 +195,8 @@ runImportGraph lang (package :: Package term) f =
newtype ImportGraphEff address outerEffects a = ImportGraphEff newtype ImportGraphEff address outerEffects a = ImportGraphEff
{ runImportGraphEff :: Eff ( ValueEffects address (Value address (ImportGraphEff address outerEffects)) { runImportGraphEff :: Eff ( ValueEffects address (Value address (ImportGraphEff address outerEffects))
( Exc (LoopControl address) ( ModuleEffects address (Value address (ImportGraphEff address outerEffects))
': Exc (Return address) ( Reader Span
': Env address
': Deref (Value address (ImportGraphEff address outerEffects))
': Allocator address
': Reader ModuleInfo
': Reader Span
': Reader PackageInfo ': Reader PackageInfo
': Modules address ': Modules address
': Reader (ModuleTable (NonEmpty (Module (ModuleResult address)))) ': Reader (ModuleTable (NonEmpty (Module (ModuleResult address))))
@ -216,7 +211,7 @@ newtype ImportGraphEff address outerEffects a = ImportGraphEff
': Fresh ': Fresh
': State (Heap address (Value address (ImportGraphEff address outerEffects))) ': State (Heap address (Value address (ImportGraphEff address outerEffects)))
': outerEffects ': outerEffects
)) a ))) a
} }