diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-08-23 01:53:51 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-08-23 01:53:51 +0000 |
| commit | 097ce0211ba8fc7aef8cd7fefc33f21f92e559ea (patch) | |
| tree | 694a6eb99745cc809a504c5f55f764378f45064d /compiler/vectorise/VectMonad.hs | |
| parent | f8b36ae46b5ee5aa13ca8a6fdb901d92249d147b (diff) | |
| download | haskell-097ce0211ba8fc7aef8cd7fefc33f21f92e559ea.tar.gz | |
Initialise PR dictionaries in vectorisation monad
Diffstat (limited to 'compiler/vectorise/VectMonad.hs')
| -rw-r--r-- | compiler/vectorise/VectMonad.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs index 11f7b53cc0..6bc2f4d656 100644 --- a/compiler/vectorise/VectMonad.hs +++ b/compiler/vectorise/VectMonad.hs @@ -454,6 +454,7 @@ initV hsc_env guts info p builtins <- initBuiltins builtin_tycons <- initBuiltinTyCons builtin_pas <- initBuiltinPAs + builtin_prs <- initBuiltinPRs eps <- ioToIOEnv $ hscEPS hsc_env let famInstEnvs = (eps_fam_inst_env eps, mg_fam_inst_env guts) @@ -461,6 +462,7 @@ initV hsc_env guts info p let genv = extendTyConsEnv builtin_tycons . extendPAFunsEnv builtin_pas + . setPRFunsEnv builtin_prs $ initGlobalEnv info instEnvs famInstEnvs r <- runVM p builtins genv emptyLocalEnv |