diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2009-10-15 05:37:40 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2009-10-15 05:37:40 +0000 |
| commit | c5dbdf06b92472ef64b66a01f107ba30b65c3708 (patch) | |
| tree | 873c736423be9c85d858f875318a4bf25249561a /compiler/vectorise/VectMonad.hs | |
| parent | a139addf4890fc2167949680ead07ab809a9d98b (diff) | |
| download | haskell-c5dbdf06b92472ef64b66a01f107ba30b65c3708.tar.gz | |
Don't hardwire PA and PR dfuns in the vectoriser
Instead, we simply find all available PA and PR instances and get our dfuns
from those.
Diffstat (limited to 'compiler/vectorise/VectMonad.hs')
| -rw-r--r-- | compiler/vectorise/VectMonad.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs index b731576837..a8c84acc65 100644 --- a/compiler/vectorise/VectMonad.hs +++ b/compiler/vectorise/VectMonad.hs @@ -543,8 +543,6 @@ initV pkg hsc_env guts info p builtin_vars <- initBuiltinVars builtins builtin_tycons <- initBuiltinTyCons builtins let builtin_datacons = initBuiltinDataCons builtins - builtin_pas <- initBuiltinPAs builtins - builtin_prs <- initBuiltinPRs builtins builtin_boxed <- initBuiltinBoxedTyCons builtins builtin_scalars <- initBuiltinScalars builtins @@ -552,6 +550,9 @@ initV pkg hsc_env guts info p let famInstEnvs = (eps_fam_inst_env eps, mg_fam_inst_env guts) instEnvs = (eps_inst_env eps, mg_inst_env guts) + builtin_prs <- initBuiltinPRs builtins instEnvs + builtin_pas <- initBuiltinPAs builtins instEnvs + let genv = extendImportedVarsEnv builtin_vars . extendScalars builtin_scalars . extendTyConsEnv builtin_tycons |