mirror of
https://github.com/github/semantic.git
synced 2025-01-04 05:27:08 +03:00
Bring back Lookup path
This commit is contained in:
parent
bc3bc5a023
commit
b67f3b1e8a
@ -100,6 +100,7 @@ graphingModules recur m = do
|
||||
appendGraph (vertex (moduleVertex (moduleInfo m)))
|
||||
eavesdrop @(Modules address) (\ m -> case m of
|
||||
Load path | not (Prologue.null path) -> moduleInclusion (moduleVertex (ModuleInfo path))
|
||||
Lookup path | not (Prologue.null path) -> moduleInclusion (moduleVertex (ModuleInfo path))
|
||||
_ -> pure ())
|
||||
(recur m)
|
||||
|
||||
@ -116,6 +117,7 @@ graphingModuleInfo recur m = do
|
||||
appendGraph (vertex (moduleInfo m))
|
||||
eavesdrop @(Modules address) (\ eff -> case eff of
|
||||
Load path -> currentModule >>= appendGraph . (`connect` vertex (ModuleInfo path)) . vertex
|
||||
Lookup path -> currentModule >>= appendGraph . (`connect` vertex (ModuleInfo path)) . vertex
|
||||
_ -> pure ())
|
||||
(recur m)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user