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

Set the current module state.

Browse Source
This commit is contained in:
Rob Rix 2018-05-22 11:03:36 -04:00
parent a4f6b26ae0
commit 93c315402d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -85,6 +85,7 @@ graphingLoadErrors recur term = TermEvaluator (runTermEvaluator (recur term) `re
graphingModules :: Members '[ Reader ModuleInfo
, Reader PackageInfo
, State (Graph Vertex)
, State (Maybe ModuleInfo)
] effects
=> SubtermAlgebra Module term (TermEvaluator term location value effects a)
-> SubtermAlgebra Module term (TermEvaluator term location value effects a)
@ -92,7 +93,7 @@ graphingModules recur m = do
let name = BC.pack (modulePath (moduleInfo m))
packageInclusion (Module name)
moduleInclusion (Module name)
recur m
localState (const (Just (moduleInfo m))) (recur m)
packageGraph :: PackageInfo -> Graph Vertex