Fix doctest
commitd4eb837a2db0f0d5666987462a8b9ce264aabeb3
authorAndrzej Rybczak <andrzej@rybczak.net>
dateSun 25 Jul 2021, 12:22 (5 years ago)
parentc25e672
src/Effectful/Handler.hs+1−1
@@ -205,7 +205,7 @@ withLiftMap k = unsafeEff $ \es -> do
205205--
206206-- >>> :{
207207-- 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
209209-- localUnliftIO env (ConcUnlift Ephemeral $ Limited 1) $ \unlift -> do
210210-- forkIOWithUnmask $ \unmask -> unlift $ m $ liftMap unmask
211211-- :}