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

Simplify runEff

Browse Source
This commit is contained in:
Andrzej Rybczak 2022-02-09 18:28:44 +01:00
parent 4ab5e7b5f6
commit eef830f5aa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
effectful-core/src/Effectful/Internal/Monad.hs
View File

@ -280,7 +280,7 @@ newtype instance StaticRep IOE = IOE UnliftStrategy
--
-- For running pure computations see 'runPureEff'.
runEff :: Eff '[IOE] a -> IO a
runEff m = unEff (evalStaticRep (IOE SeqUnlift) m) =<< emptyEnv
runEff m = unEff m =<< unsafeConsEnv (IOE SeqUnlift) dummyRelinker =<< emptyEnv
instance IOE :> es => MonadIO (Eff es) where
liftIO = unsafeEff_