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