From 648675aa4ee5b005ec747681b02aac556ea7e488 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 5 Apr 2018 12:53:44 -0400 Subject: [PATCH] Rename importGraph to graphImports. --- src/Semantic/Task.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Semantic/Task.hs b/src/Semantic/Task.hs index ef30de6d5..0bc44c5ac 100644 --- a/src/Semantic/Task.hs +++ b/src/Semantic/Task.hs @@ -23,7 +23,7 @@ module Semantic.Task , decorate , diff , render -, importGraph +, graphImports -- * Concurrency , distribute , distributeFor @@ -131,8 +131,8 @@ render renderer = send . Render renderer -- | Render and serialize the import graph for a given 'Package'. -importGraph :: (Apply Eq1 syntax, Apply Analysis.Evaluatable syntax, Apply FreeVariables1 syntax, Apply Functor syntax, Apply Ord1 syntax, Apply Show1 syntax, Member Syntax.Identifier syntax, Member Task effs, Ord ann, Show ann) => Package (Term (Union syntax) ann) -> Eff effs B.ByteString -importGraph package = renderGraph <$> analyze (Analysis.SomeAnalysis (Analysis.evaluatePackage package `asAnalysisForTypeOfPackage` package)) +graphImports :: (Apply Eq1 syntax, Apply Analysis.Evaluatable syntax, Apply FreeVariables1 syntax, Apply Functor syntax, Apply Ord1 syntax, Apply Show1 syntax, Member Syntax.Identifier syntax, Member Task effs, Ord ann, Show ann) => Package (Term (Union syntax) ann) -> Eff effs B.ByteString +graphImports package = renderGraph <$> analyze (Analysis.SomeAnalysis (Analysis.evaluatePackage package `asAnalysisForTypeOfPackage` package)) where asAnalysisForTypeOfPackage :: Abstract.ImportGraphing (Evaluating (Located Precise term) term (Value (Located Precise term))) effects value -> Package term -> Abstract.ImportGraphing (Evaluating (Located Precise term) term (Value (Located Precise term))) effects value asAnalysisForTypeOfPackage = const