From 12c876005755af7d80a1fd94530631aecb7b6832 Mon Sep 17 00:00:00 2001 From: Joshua Potter Date: Sun, 3 Apr 2022 16:21:59 -0400 Subject: [PATCH] Workaround subsumption changes in GHC 9.0.2. --- src/Control/Effect/UnliftIO/Exception.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Control/Effect/UnliftIO/Exception.hs b/src/Control/Effect/UnliftIO/Exception.hs index 5ee7cd4..12bcbe9 100644 --- a/src/Control/Effect/UnliftIO/Exception.hs +++ b/src/Control/Effect/UnliftIO/Exception.hs @@ -206,7 +206,7 @@ mask_ . (MonadUnliftIO n, Has (Lift n) sig m) => m a -> m a -mask_ m = mask @n (const m) +mask_ m = mask @n (\_ -> m) -- | See @"UnliftIO.Exception".uninterruptibleMask@. -- @@ -229,7 +229,7 @@ uninterruptibleMask_ . (MonadUnliftIO n, Has (Lift n) sig m) => m a -> m a -uninterruptibleMask_ m = uninterruptibleMask @n (const m) +uninterruptibleMask_ m = uninterruptibleMask @n (\_ -> m) -- | See @"UnliftIO.Exception".'Exc.bracket'@. --