@@ -346,9 +346,9 @@ runHandler e m = unsafeEff $ \es0 -> do
346346 (\es -> unEff m es)
347347 where
348348 relinker :: Relinker Handler e
349− relinker = Relinker $ \relink (Handler env handle) -> do
350− newEnv <- relink env
351− pure $ Handler newEnv handle
349+ relinker = Relinker $ \relink (Handler handlerEs handle) -> do
350+ newHandlerEs <- relink handlerEs
351+ pure $ Handler newHandlerEs handle
352352
353353-- | Send an operation of the given effect to its handler for execution.
354354send :: (HasCallStack, e :> es) => e (Eff es) a -> Eff es a