@@ -82,10 +82,10 @@ instance MonadCatch (Eff es) where
8282
8383instance MonadMask (Eff es) where
8484 mask k = impureEff $ \es -> mask $ \restore ->
85− unEff (k $ (\f (Eff m) -> impureEff $ f . m) restore) es
85+ unEff (k $ \(Eff m) -> impureEff $ restore . m) es
8686
8787 uninterruptibleMask k = impureEff $ \es -> uninterruptibleMask $ \restore ->
88− unEff (k $ (\f (Eff m) -> impureEff $ f . m) restore) es
88+ unEff (k $ \(Eff m) -> impureEff $ restore . m) es
8989
9090 generalBracket acquire release use = impureEff $ \es -> mask $ \restore -> do
9191 size <- sizeEnv es