@@ -22,8 +22,11 @@ module Asyncly.AsyncT
2222 , MonadAsync
2323 , runAsyncly
2424 , toList
25+ , async
26+
2527 , take
2628 , drop
29+
2730 , zipWithM
2831 , zipWith
2932 , ZipSerial (..)
@@ -768,6 +771,9 @@ pushOneToCtx ctype m = do
768771 pushWorker ctx
769772 return ctx
770773
774+-- | Run a computation asynchronously, triggers the computation and returns
775+-- another computation (i.e. a promise) that when run produces the output from
776+-- the original computation.
771777async :: MonadAsync m => AsyncT m a -> m (AsyncT m a)
772778async m = do
773779 ctx <- pushOneToCtx (CtxType Disjunction LIFO) m