git.iko.soy/effectful
on master help sign in
Change name of the variable
a9feee9Andrzej Rybczak
effectful-core/src/Effectful/Internal/Monad.hs+3−3
compare with master
unifiedsplit
@@ -346,9 +346,9 @@ runHandler e m = unsafeEff $ \es0 -> do
346 (\es -> unEff m es)
346 (\es -> unEff m es)
347 where
347 where
348 relinker :: Relinker Handler e
348 relinker :: Relinker Handler e
349− relinker = Relinker $ \relink (Handler env handle) -> do
349+ relinker = Relinker $ \relink (Handler handlerEs handle) -> do
350− newEnv <- relink env
350+ newHandlerEs <- relink handlerEs
351− pure $ Handler newEnv handle
351+ pure $ Handler newHandlerEs handle
352
352
353-- | Send an operation of the given effect to its handler for execution.
353-- | Send an operation of the given effect to its handler for execution.
354send :: (HasCallStack, e :> es) => e (Eff es) a -> Eff es a
354send :: (HasCallStack, e :> es) => e (Eff es) a -> Eff es a