diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2017-02-03 16:27:51 -0500 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2017-02-03 22:09:54 -0500 |
| commit | b59c2de7abe3cd4e046f11c3536ba8e7137c4f84 (patch) | |
| tree | bb5f339698701b122f9ca378f763fb4b914e724f /compiler/simplCore/SimplCore.hs | |
| parent | 122c655927185131186814064f30a041cc361630 (diff) | |
| download | haskell-wip/T11179.tar.gz | |
Do not drop dead code in the desugarerwip/T11179
so that GHC plugins have a chance of doing something with them first.
See #11179 and #10823.
Diffstat (limited to 'compiler/simplCore/SimplCore.hs')
| -rw-r--r-- | compiler/simplCore/SimplCore.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/SimplCore.hs b/compiler/simplCore/SimplCore.hs index 23faac861a..b7253a96ac 100644 --- a/compiler/simplCore/SimplCore.hs +++ b/compiler/simplCore/SimplCore.hs @@ -703,7 +703,7 @@ simplifyPgmIO pass@(CoreDoSimplify max_iterations mode) InitialPhase -> (mg_vect_decls guts, vectVars) _ -> ([], vectVars) ; tagged_binds = {-# SCC "OccAnal" #-} - occurAnalysePgm this_mod active_rule rules + occurAnalysePgm this_mod True active_rule rules maybeVects maybeVectVars binds } ; Err.dumpIfSet_dyn dflags Opt_D_dump_occur_anal "Occurrence analysis" |