From 9a4766adea606ddd52de66f437bd78fbd4f38160 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 5 Apr 2018 10:21:04 -0400 Subject: [PATCH] :fire: some indentation. --- src/Semantic/Task.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/Semantic/Task.hs b/src/Semantic/Task.hs index 3e981fc8e..a7f3b6ec0 100644 --- a/src/Semantic/Task.hs +++ b/src/Semantic/Task.hs @@ -166,11 +166,11 @@ runTaskWithOptions options task = do data Task output where - Parse :: Parser term -> Blob -> Task term - Analyze :: Analysis.SomeAnalysis m result -> Task result - Decorate :: Functor f => RAlgebra (TermF f (Record fields)) (Term f (Record fields)) field -> Term f (Record fields) -> Task (Term f (Record (field ': fields))) - Diff :: Differ syntax ann1 ann2 -> Term syntax ann1 -> Term syntax ann2 -> Task (Diff syntax ann1 ann2) - Render :: Renderer input output -> input -> Task output + Parse :: Parser term -> Blob -> Task term + Analyze :: Analysis.SomeAnalysis m result -> Task result + Decorate :: Functor f => RAlgebra (TermF f (Record fields)) (Term f (Record fields)) field -> Term f (Record fields) -> Task (Term f (Record (field ': fields))) + Diff :: Differ syntax ann1 ann2 -> Term syntax ann1 -> Term syntax ann2 -> Task (Diff syntax ann1 ann2) + Render :: Renderer input output -> input -> Task output runTaskF :: Members '[Reader Options, Telemetry, Exc SomeException, IO] effs => Eff (Task ': effs) a -> Eff effs a runTaskF = interpret $ \ task -> case task of