github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-11 08:45:48 +03:00
Code Issues Projects Releases Wiki Activity

Revert "Bind the vertex."

Browse Source 
This reverts commit 8e861863a5cee81cab3c22ceb3b0fb626b95fa5d.
This commit is contained in:
Rob Rix 2018-05-22 13:34:54 -04:00
parent 84eb2f76ec
commit f9dea05ddb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Analysis/Abstract/Graph.hs
View File

@ -89,9 +89,9 @@ graphingModules :: Members '[ Reader PackageInfo
=> SubtermAlgebra Module term (TermEvaluator term location value effects a)
-> SubtermAlgebra Module term (TermEvaluator term location value effects a)
graphingModules recur m = do
let vertex = Module (BC.pack (modulePath (moduleInfo m)))
packageInclusion vertex
moduleInclusion vertex
let name = BC.pack (modulePath (moduleInfo m))
packageInclusion (Module name)
moduleInclusion (Module name)
localState (const (Just (moduleInfo m))) (recur m)