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

Facror the common part of runGraph out.

Browse Source
This commit is contained in:
Rob Rix 2019-10-18 15:00:41 -04:00
parent 3b2bda990f
commit 3dcc0de5b2
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Semantic/Graph.hs
View File

@ -122,16 +122,14 @@ runGraph :: ( Member Distribute sig
-> Project -> Project
-> m (Graph ControlFlowVertex) -> m (Graph ControlFlowVertex)
runGraph type' includePackages project runGraph type' includePackages project
| SomeAnalysisParser parser (lang :: Proxy lang) <- someAnalysisParser (Proxy @AnalyzeTerm) (projectLanguage project) = case type' of | SomeAnalysisParser parser (lang :: Proxy lang) <- someAnalysisParser (Proxy @AnalyzeTerm) (projectLanguage project) = do
ImportGraph -> do
let parse = if projectLanguage project == Language.Python then parsePythonPackage parser else fmap (fmap snd) . parsePackage parser let parse = if projectLanguage project == Language.Python then parsePythonPackage parser else fmap (fmap snd) . parsePackage parser
package <- parse project package <- parse project
runImportGraphToModuleInfos lang package case type' of
CallGraph -> do ImportGraph -> runImportGraphToModuleInfos lang package
let parse = if projectLanguage project == Language.Python then parsePythonPackage parser else fmap (fmap snd) . parsePackage parser CallGraph -> do
package <- parse project modules <- topologicalSort <$> runImportGraphToModules lang package
modules <- topologicalSort <$> runImportGraphToModules lang package runCallGraph lang includePackages modules package
runCallGraph lang includePackages modules package
runCallGraph :: ( AnalyzeTerm term runCallGraph :: ( AnalyzeTerm term
, HasPrelude lang , HasPrelude lang