r
/
fused-effects-exceptions
mirror of https://github.com/jrpotter/fused-effects-exceptions
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Control/Effect/UnliftIO/Exception.hs
View File

@ -206,7 +206,7 @@ mask_
. (MonadUnliftIO n, Has (Lift n) sig m) . (MonadUnliftIO n, Has (Lift n) sig m)
=> m a => m a
-> m a -> m a
mask_ m = mask @n (const m) mask_ m = mask @n (\_ -> m)
-- | See @"UnliftIO.Exception".uninterruptibleMask@. -- | See @"UnliftIO.Exception".uninterruptibleMask@.
-- --
@ -229,7 +229,7 @@ uninterruptibleMask_
. (MonadUnliftIO n, Has (Lift n) sig m) . (MonadUnliftIO n, Has (Lift n) sig m)
=> m a => m a
-> m a -> m a
uninterruptibleMask_ m = uninterruptibleMask @n (const m) uninterruptibleMask_ m = uninterruptibleMask @n (\_ -> m)
-- | See @"UnliftIO.Exception".'Exc.bracket'@. -- | See @"UnliftIO.Exception".'Exc.bracket'@.
-- --