From 7ca0d108f8c7f0467c368a32d8f25b373126744d Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Fri, 1 Oct 2021 01:29:16 +0200
Subject: [PATCH] Remove operator sections with forall for GHC 9.2.1
---
src/Quasar/Async.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Quasar/Async.hs b/src/Quasar/Async.hs
index 07a1422..62db12a 100644
--- a/src/Quasar/Async.hs
+++ b/src/Quasar/Async.hs
@@ -89,7 +89,7 @@ instance {-# OVERLAPPABLE #-} MonadAsync m => MonadAsync (ReaderT r m) where
--
-- TODO change signature to `Awaitable`
async :: MonadAsync m => (forall f. MonadAsync f => f a) -> m (Awaitable a)
-async action = asyncWithUnmask ($ action)
+async action = asyncWithUnmask \unmask -> unmask action
asyncWithUnmask :: MonadAsync m => (forall f. MonadAsync f => (forall a. f a -> f a) -> f r) -> m (Awaitable r)
asyncWithUnmask action = do
@@ -113,7 +113,7 @@ runUnlimitedAsync action = do
forkTask :: MonadIO m => IO a -> m (Task a)
-forkTask action = forkTaskWithUnmask ($ action)
+forkTask action = forkTaskWithUnmask \unmask -> unmask action
forkTask_ :: MonadIO m => IO () -> m Disposable
forkTask_ action = toDisposable <$> forkTask action
--
GitLab