haskell-effectful/effectful
1
1
Fork 0
mirror of https://github.com/haskell-effectful/effectful.git synced 2024-11-23 14:36:11 +03:00
Code Issues Projects Releases Wiki Activity

Adjust comment

Browse Source
This commit is contained in:
Andrzej Rybczak 2021-06-14 23:53:34 +02:00
parent 134c929416
commit d261519419
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Effectful/Internal/Monad.hs
View File

@ -59,9 +59,9 @@ impureUnliftEff f = impureEff $ \es -> do
tid0 <- myThreadId
f $ \(Eff m) -> do
tid <- myThreadId
-- If the lifting function is called from a different thread, we need to
-- clone the environment. Otherwise multiple threads will attempt to modify
-- it in different ways and things will break horribly.
-- If the unlifting function is called from another thread, we need to clone
-- the environment. Otherwise multiple threads will attempt to modify it in
-- different ways and things will break horribly.
if tid0 == tid
then m es
else m =<< cloneEnv es