From 536ae92e25ea463f63446fcd175171fb2436f911 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Wed, 4 Apr 2018 11:08:35 -0400 Subject: [PATCH] Promote the list. --- 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 d98641ee4..4610d2230 100644 --- a/src/Semantic/Task.hs +++ b/src/Semantic/Task.hs @@ -74,7 +74,7 @@ type LogQueue = AsyncQueue Message Options type StatQueue = AsyncQueue Stat StatsClient -- | A high-level task producing some result, e.g. parsing, diffing, rendering. 'Task's can also specify explicit concurrency via 'distribute', 'distributeFor', and 'distributeFoldMap' -type Task = Eff [Distribute WrappedTask, TaskF, Reader Options, Telemetry, Reader LogQueue, Reader StatQueue, Exc SomeException, IO] +type Task = Eff '[Distribute WrappedTask, TaskF, Reader Options, Telemetry, Reader LogQueue, Reader StatQueue, Exc SomeException, IO] newtype WrappedTask a = WrapTask { unwrapTask :: Task a } deriving (Applicative, Functor, Monad)