diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2011-08-19 00:17:10 +1000 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2011-08-19 01:16:56 +1000 |
| commit | 9282550cc1f1b7915642871cb6010ba45988683a (patch) | |
| tree | 98788f0f6d802c872c683c6fe242f28c22b02d7c /compiler/main/TidyPgm.lhs | |
| parent | 46fa261eee74c1c1a1be52f9394ff131183024da (diff) | |
| download | haskell-9282550cc1f1b7915642871cb6010ba45988683a.tar.gz | |
Improve import and export of vectorisation information
Diffstat (limited to 'compiler/main/TidyPgm.lhs')
| -rw-r--r-- | compiler/main/TidyPgm.lhs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs index 8369180de7..e278f6a2c8 100644 --- a/compiler/main/TidyPgm.lhs +++ b/compiler/main/TidyPgm.lhs @@ -331,20 +331,20 @@ tidyProgram hsc_env (ModGuts { mg_module = mod, mg_exports = exports, -- we want Global, IdInfo-rich (or not) DFunId in the -- tidy_insts - ; tidy_rules = tidyRules tidy_env ext_rules - -- You might worry that the tidy_env contains IdInfo-rich stuff - -- and indeed it does, but if omit_prags is on, ext_rules is - -- empty + ; tidy_rules = tidyRules tidy_env ext_rules + -- You might worry that the tidy_env contains IdInfo-rich stuff + -- and indeed it does, but if omit_prags is on, ext_rules is + -- empty ; tidy_vect_info = tidyVectInfo tidy_env vect_info - -- See Note [Injecting implicit bindings] - ; all_tidy_binds = implicit_binds ++ tidy_binds + -- See Note [Injecting implicit bindings] + ; all_tidy_binds = implicit_binds ++ tidy_binds - ; alg_tycons = filter isAlgTyCon (typeEnvTyCons type_env) - } + ; alg_tycons = filter isAlgTyCon (typeEnvTyCons type_env) + } - ; endPass dflags CoreTidy all_tidy_binds tidy_rules + ; endPass dflags CoreTidy all_tidy_binds tidy_rules -- If the endPass didn't print the rules, but ddump-rules is on, print now ; dumpIfSet (dopt Opt_D_dump_rules dflags |