1
1
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +03:00

Promote the list.

This commit is contained in:
Rob Rix 2018-04-04 11:08:35 -04:00
parent 2999b18b3b
commit 536ae92e25

View File

@ -74,7 +74,7 @@ type LogQueue = AsyncQueue Message Options
type StatQueue = AsyncQueue Stat StatsClient 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' -- | 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 } newtype WrappedTask a = WrapTask { unwrapTask :: Task a }
deriving (Applicative, Functor, Monad) deriving (Applicative, Functor, Monad)