@@ -84,9 +84,8 @@ unsafeUnliftEff f = unsafeEff $ \es -> do
84 tid <- myThreadId
84 tid <- myThreadId
85 if tid == tid0
85 if tid == tid0
88− -- TODO: Add Fork and Async effect.
89− error "Running computations in a different thread is not supported yet"
87+ else error $ "Running Eff computations in a different thread is "
88+ ++ "currently only possible via the AsyncE effect"
91----------------------------------------
90----------------------------------------