haskell-effectful/effectful
1
1
Fork 0
mirror of https://github.com/haskell-effectful/effectful.git synced 2024-11-27 01:45:16 +03:00
Code Issues Projects Releases Wiki Activity

Accurate argument name

Browse Source
This commit is contained in:
Andrzej Rybczak 2021-07-14 15:41:33 +02:00
parent f9bc460236
commit 408bd829ae
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Effectful/Handler.hs
View File

@ -209,9 +209,9 @@ withLiftMap
-- ^ Continuation with the lifting function in scope.
-> Eff es r
withLiftMap k = unsafeEff $ \es -> do
(`unEff` es) $ k $ \mapIO m -> unsafeEff $ \localEs -> do
(`unEff` es) $ k $ \mapEff m -> unsafeEff $ \localEs -> do
unsafeSeqUnliftEff localEs $ \unlift -> do
(`unEff` es) . mapIO . liftIO $ unlift m
(`unEff` es) . mapEff . liftIO $ unlift m
-- | Utility for lifting 'IO' operations of type
--