diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2016-05-06 09:49:46 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2016-05-10 14:25:08 +0100 |
| commit | a4717f51433d16e948d102477564e257cdece475 (patch) | |
| tree | 88136a3315bbfc8b1064f3a77cb6ac16ee41bd85 /compiler/main/TidyPgm.hs | |
| parent | b58b0e18a568bbf6381a85eea7adc72679355671 (diff) | |
| download | haskell-a4717f51433d16e948d102477564e257cdece475.tar.gz | |
Comments about static forms
Diffstat (limited to 'compiler/main/TidyPgm.hs')
| -rw-r--r-- | compiler/main/TidyPgm.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/compiler/main/TidyPgm.hs b/compiler/main/TidyPgm.hs index 945e3f86e7..401f939d44 100644 --- a/compiler/main/TidyPgm.hs +++ b/compiler/main/TidyPgm.hs @@ -375,7 +375,10 @@ tidyProgram hsc_env (ModGuts { mg_module = mod -- See Note [Injecting implicit bindings] ; all_tidy_binds = implicit_binds ++ tidy_binds - -- get the TyCons to generate code for. Careful! We must use + -- See SimplCore Note [Grand plan for static forms] + ; spt_init_code = sptModuleInitCode mod all_tidy_binds + + -- Get the TyCons to generate code for. Careful! We must use -- the untidied TypeEnv here, because we need -- (a) implicit TyCons arising from types and classes defined -- in this module @@ -409,7 +412,7 @@ tidyProgram hsc_env (ModGuts { mg_module = mod cg_tycons = alg_tycons, cg_binds = all_tidy_binds, cg_foreign = foreign_stubs `appendStubC` - sptModuleInitCode mod all_tidy_binds, + spt_init_code, cg_dep_pkgs = map fst $ dep_pkgs deps, cg_hpc_info = hpc_info, cg_modBreaks = modBreaks }, |