Workaround subsumption changes in GHC 9.0.2.

main
Joshua Potter 2022-04-03 16:21:59 -04:00
parent 54b92afc06
commit 12c8760057
1 changed files with 2 additions and 2 deletions

View File

@ -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'@.
--