From f85b44b738241a5f1505b80f4845a42e6387f52b Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Sun, 5 Sep 2021 04:27:21 +0200
Subject: [PATCH] Fix warnings, remove duplicate export

---
 src/Quasar/Async.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/Quasar/Async.hs b/src/Quasar/Async.hs
index a66da1d..846aec4 100644
--- a/src/Quasar/Async.hs
+++ b/src/Quasar/Async.hs
@@ -1,17 +1,16 @@
 module Quasar.Async (
   -- * Async/await
   MonadAsync(..),
-  runUnlimitedAsync,
   async,
   async_,
   asyncWithUnmask,
   asyncWithUnmask_,
+  runUnlimitedAsync,
 
   -- ** Async context
   IsAsyncContext(..),
   AsyncContext,
   unlimitedAsyncContext,
-  runUnlimitedAsync,
 
   -- * Unmanaged forking
   forkTask,
@@ -31,7 +30,7 @@ import Quasar.Prelude
 
 
 class IsAsyncContext a where
-  asyncOnContextWithUnmask :: MonadResourceManager m => a -> (forall f. MonadAsync f => (forall a. f a -> f a) -> f r) -> m (Awaitable r)
+  asyncOnContextWithUnmask :: MonadResourceManager m => a -> (forall f. MonadAsync f => (forall b. f b -> f b) -> f r) -> m (Awaitable r)
   asyncOnContextWithUnmask self = asyncOnContextWithUnmask (toAsyncContext self)
 
   toAsyncContext :: a -> AsyncContext
@@ -106,7 +105,7 @@ asyncWithUnmask_ action = void $ asyncWithUnmask action
 
 -- | Run a computation in `MonadAsync` where `async` is implemented without any thread limits (i.e. every `async` will
 -- fork a new (RTS) thread).
-runUnlimitedAsync :: (MonadResourceManager m) => ReaderT AsyncContext m a -> m a
+runUnlimitedAsync :: ReaderT AsyncContext m a -> m a
 runUnlimitedAsync action = do
   runReaderT action unlimitedAsyncContext
 
-- 
GitLab