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