github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +03:00
Code Issues Projects Releases Wiki Activity

Rename packageVertex to packageGraph.

Browse Source
This commit is contained in:
Rob Rix 2018-04-02 18:15:30 -04:00
parent a87fe24e2f
commit d2713eca19
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/ImportGraph.hs
View File

@ -75,12 +75,12 @@ instance ( Effectful m
analyzeModule recur m = do analyzeModule recur m = do
let name = moduleName (moduleInfo m) let name = moduleName (moduleInfo m)
o <- raise ask o <- raise ask
modifyImportGraph (packageVertex @term o >< vertex (Module name) <>) modifyImportGraph (packageGraph @term o >< vertex (Module name) <>)
insertVertexName name insertVertexName name
liftAnalyze analyzeModule recur m liftAnalyze analyzeModule recur m
packageVertex :: SomeOrigin term -> ImportGraph packageGraph :: SomeOrigin term -> ImportGraph
packageVertex = maybe empty (vertex . Package . packageName) . withSomeOrigin originPackage packageGraph = maybe empty (vertex . Package . packageName) . withSomeOrigin originPackage
insertVertexName :: forall m location term value effects insertVertexName :: forall m location term value effects
. ( Effectful m . ( Effectful m