diff options
| author | Twan van Laarhoven <twanvl@gmail.com> | 2008-01-17 21:52:33 +0000 |
|---|---|---|
| committer | Twan van Laarhoven <twanvl@gmail.com> | 2008-01-17 21:52:33 +0000 |
| commit | 36fa8c4890e439fe8c2a4682df2a877fa2cc606b (patch) | |
| tree | c8732bc3bca169b19296e2c5e9c844cfc2b13339 /compiler/vectorise | |
| parent | 93ed9b8d722f093aea5fa0508ed1efb6e407a81a (diff) | |
| download | haskell-36fa8c4890e439fe8c2a4682df2a877fa2cc606b.tar.gz | |
Replace remaining uses of ioToIOEnv by liftIO, remove ioToIOEnv
Diffstat (limited to 'compiler/vectorise')
| -rw-r--r-- | compiler/vectorise/VectMonad.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs index a7e0a28b7e..57f87d3db7 100644 --- a/compiler/vectorise/VectMonad.hs +++ b/compiler/vectorise/VectMonad.hs @@ -58,7 +58,7 @@ import NameEnv import TysPrim ( intPrimTy ) import Module import IfaceEnv -import IOEnv ( ioToIOEnv ) +import IOEnv ( liftIO ) import DsMonad import PrelNames @@ -503,7 +503,7 @@ initV hsc_env guts info p builtin_prs <- initBuiltinPRs builtins builtin_boxed <- initBuiltinBoxedTyCons builtins - eps <- ioToIOEnv $ hscEPS hsc_env + eps <- liftIO $ hscEPS hsc_env let famInstEnvs = (eps_fam_inst_env eps, mg_fam_inst_env guts) instEnvs = (eps_inst_env eps, mg_inst_env guts) |