From 7fde1705f454eaae8b5fee7165df72f231ca9f96 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Wed, 4 Apr 2018 13:32:05 -0400 Subject: [PATCH] Coalesce contexts. --- src/Semantic/Task.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Semantic/Task.hs b/src/Semantic/Task.hs index 200c3e58d..64f54b2db 100644 --- a/src/Semantic/Task.hs +++ b/src/Semantic/Task.hs @@ -121,7 +121,7 @@ render :: Member TaskF effs => Renderer input output -> input -> Eff effs output render renderer = send . Render renderer -importGraph :: (Apply Eq1 syntax, Apply Analysis.Evaluatable syntax, Apply FreeVariables1 syntax, Apply Functor syntax, Apply Ord1 syntax, Apply Show1 syntax, Member Syntax.Identifier syntax, Ord ann, Show ann) => Member TaskF effs => Package (Term (Union syntax) ann) -> Eff effs B.ByteString +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 TaskF effs, Ord ann, Show ann) => Package (Term (Union syntax) ann) -> Eff effs B.ByteString importGraph package = send (ImportGraph package)