diff --git a/src/Semantic/Task.hs b/src/Semantic/Task.hs
index 4610d2230..043bf2a22 100644
--- a/src/Semantic/Task.hs
+++ b/src/Semantic/Task.hs
@@ -76,6 +76,7 @@ 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]
 
+-- | A wrapper for a 'Task', to embed in other effects.
 newtype WrappedTask a = WrapTask { unwrapTask :: Task a }
   deriving (Applicative, Functor, Monad)