From 2999b18b3b5e5e122f5498676c50038333084ed9 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Wed, 4 Apr 2018 11:08:22 -0400
Subject: [PATCH] :fire: the ConcurrentEffects synonym.

---
 src/Semantic/Task.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Semantic/Task.hs b/src/Semantic/Task.hs
index 09bedfb8f..d98641ee4 100644
--- a/src/Semantic/Task.hs
+++ b/src/Semantic/Task.hs
@@ -74,8 +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 ': ConcurrentEffects)
-type ConcurrentEffects = '[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)