haskell-effectful/effectful
1
1
Fork 0
mirror of https://github.com/haskell-effectful/effectful.git synced 2024-11-27 01:45:16 +03:00
Code Issues Projects Releases Wiki Activity

Remove INLINABLE pragmas from catch and genericBracket

Browse Source
This commit is contained in:
Andrzej Rybczak 2021-07-12 23:27:33 +02:00
parent 3f78b20c8d
commit 7c55fe0c8f
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Effectful/Internal/Monad.hs
View File

@ -211,7 +211,6 @@ instance E.MonadCatch (Eff es) where
unEff m es `catch` \e -> do
checkSizeEnv size es
unEff (handler e) es
{-# INLINABLE catch #-}
instance E.MonadMask (Eff es) where
mask k = unsafeEff $ \es -> mask $ \restore ->
@ -230,7 +229,6 @@ instance E.MonadMask (Eff es) where
checkSizeEnv size es
c <- unEff (release resource $ E.ExitCaseSuccess b) es
pure (b, c)
{-# INLINABLE generalBracket #-}
----------------------------------------
-- Fail