diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-10-23 12:12:39 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-10-23 12:12:39 +0100 |
| commit | e359a65d6171fd6ae37cef66730646bed5144041 (patch) | |
| tree | 9b502c08b13f41ec870a5dbe51341c8c577f48c9 /compiler/vectorise | |
| parent | dc9961f9da0831fe3bc5b55722dac638635f8b5e (diff) | |
| download | haskell-e359a65d6171fd6ae37cef66730646bed5144041.tar.gz | |
Normalise the type when generating do-bind warnings (Trac #8470)
This was easy to do, except that the desugar monad needs a
FamInstEnv init. Straightforward, routine, albeit a bit clunky.
Diffstat (limited to 'compiler/vectorise')
| -rw-r--r-- | compiler/vectorise/Vectorise/Monad.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/vectorise/Vectorise/Monad.hs b/compiler/vectorise/Vectorise/Monad.hs index 04a0bf24de..6f6d40f1e1 100644 --- a/compiler/vectorise/Vectorise/Monad.hs +++ b/compiler/vectorise/Vectorise/Monad.hs @@ -56,7 +56,8 @@ initV hsc_env guts info thing_inside ; let type_env = typeEnvFromEntities ids (mg_tcs guts) (mg_fam_insts guts) ; (_, Just res) <- initDs hsc_env (mg_module guts) - (mg_rdr_env guts) type_env go + (mg_rdr_env guts) type_env + (mg_fam_inst_env guts) go ; case res of Nothing |