From 48636cddaeaacb8ff6de5344c56addf38393e722 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Fri, 25 Feb 2022 23:37:00 +0100
Subject: [PATCH] Inline code from where
---
src/Quasar/Async/Fork.hs | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/src/Quasar/Async/Fork.hs b/src/Quasar/Async/Fork.hs
index e894435..c4b6422 100644
--- a/src/Quasar/Async/Fork.hs
+++ b/src/Quasar/Async/Fork.hs
@@ -51,10 +51,8 @@ forkAsyncWithUnmaskSTM fn worker exChan = join <$> startShortIOSTM (forkAsyncWit
-- * Fork in ShortIO (with ExceptionChannel)
forkWithUnmaskShortIO :: ((forall a. IO a -> IO a) -> IO ()) -> ExceptionChannel -> ShortIO ThreadId
-forkWithUnmaskShortIO fn exChan = forkFn
+forkWithUnmaskShortIO fn exChan = mask_ $ forkIOWithUnmaskShortIO wrappedFn
where
- forkFn :: ShortIO ThreadId
- forkFn = mask_ $ forkIOWithUnmaskShortIO wrappedFn
wrappedFn :: (forall a. IO a -> IO a) -> IO ()
wrappedFn unmask = fn unmask `catchAll` \ex -> atomically (throwToExceptionChannel exChan ex)
--
GitLab