From a87cb91d8fdadfeecbd9b20a8acbe0c64e6cc22f Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Fri, 1 Oct 2021 16:28:17 +0200
Subject: [PATCH] Change another forall for GHC 9.2.1
---
src/Quasar/ResourceManager.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Quasar/ResourceManager.hs b/src/Quasar/ResourceManager.hs
index c9f31aa..694399b 100644
--- a/src/Quasar/ResourceManager.hs
+++ b/src/Quasar/ResourceManager.hs
@@ -197,7 +197,7 @@ withLinkedExceptionHandler parentExceptionHandler action = do
mask \unmask ->
do
bracket
- do liftIO $ forkIOWithUnmask $ cancelThread mainThreadId
+ do liftIO $ forkIOWithUnmask \unmask -> cancelThread mainThreadId unmask
do \cancelThreadId -> liftIO $ throwTo cancelThreadId CancelHelper
do \_ -> unmask $ action exceptionHandler
`catch`
--
GitLab