1
1
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:
Timothy Clem 2018-07-19 11:24:18 -07:00
parent bc3bc5a023
commit b67f3b1e8a

View File

@ -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)