git.iko.soy/effectful
on master help sign in
Fix doctest
d4eb837Andrzej Rybczak
src/Effectful/Handler.hs+1−1
compare with master
unifiedsplit
@@ -205,7 +205,7 @@ withLiftMap k = unsafeEff $ \es -> do
205--
205--
206-- >>> :{
206-- >>> :{
207-- runFork :: IOE :> es => Eff (Fork : es) a -> Eff es a
207-- runFork :: IOE :> es => Eff (Fork : es) a -> Eff es a
208−-- runFork = interpretM $ \env (ForkWithUnmask m) -> withLiftMapIO $ \liftMap -> do
208+-- runFork = interpret $ \env (ForkWithUnmask m) -> withLiftMapIO $ \liftMap -> do
209-- localUnliftIO env (ConcUnlift Ephemeral $ Limited 1) $ \unlift -> do
209-- localUnliftIO env (ConcUnlift Ephemeral $ Limited 1) $ \unlift -> do
210-- forkIOWithUnmask $ \unmask -> unlift $ m $ liftMap unmask
210-- forkIOWithUnmask $ \unmask -> unlift $ m $ liftMap unmask
211-- :}
211-- :}