From e7bca7c62a7cec66524b3bfc609d00594035e1c1 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 18 Oct 2019 14:51:36 -0400 Subject: [PATCH] Type applications. --- src/Semantic/Graph.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Semantic/Graph.hs b/src/Semantic/Graph.hs index b46d5f5f5..304d7dd3e 100644 --- a/src/Semantic/Graph.hs +++ b/src/Semantic/Graph.hs @@ -122,12 +122,12 @@ runGraph :: ( Member Distribute sig -> Project -> m (Graph ControlFlowVertex) 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 package <- parse project runImportGraphToModuleInfos lang' package 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 package <- parse project modules <- topologicalSort <$> runImportGraphToModules lang package