github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 21:01:35 +03:00
Code Issues Projects Releases Wiki Activity

Type applications.

Browse Source
This commit is contained in:
Rob Rix 2019-10-18 14:51:36 -04:00
parent e0507e1323
commit e7bca7c62a
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Semantic/Graph.hs
View File

@ -122,12 +122,12 @@ runGraph :: ( Member Distribute sig
-> Project -> Project
-> m (Graph ControlFlowVertex) -> m (Graph ControlFlowVertex)
runGraph ImportGraph _ project runGraph ImportGraph _ project
| SomeAnalysisParser parser (lang' :: Proxy lang) <- someAnalysisParser (Proxy :: Proxy AnalyzeTerm) (projectLanguage project) = do | SomeAnalysisParser parser (lang' :: Proxy lang) <- someAnalysisParser (Proxy @AnalyzeTerm) (projectLanguage project) = 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 runImportGraphToModuleInfos lang' package
runGraph CallGraph includePackages project runGraph CallGraph includePackages project
| SomeAnalysisParser parser lang <- someAnalysisParser (Proxy :: Proxy AnalyzeTerm) (projectLanguage project) = do | SomeAnalysisParser parser lang <- someAnalysisParser (Proxy @AnalyzeTerm) (projectLanguage project) = 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
modules <- topologicalSort <$> runImportGraphToModules lang package modules <- topologicalSort <$> runImportGraphToModules lang package