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/coreSyn/CoreSubst.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/coreSyn/CoreSubst.hs')
| -rw-r--r-- | compiler/coreSyn/CoreSubst.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/coreSyn/CoreSubst.hs b/compiler/coreSyn/CoreSubst.hs index 9d69493d9e..7efb58d5b1 100644 --- a/compiler/coreSyn/CoreSubst.hs +++ b/compiler/coreSyn/CoreSubst.hs @@ -906,7 +906,7 @@ simpleOptPgm dflags this_mod binds rules vects ; return (reverse binds', substRulesForImportedIds subst' rules, substVects subst' vects) } where - occ_anald_binds = occurAnalysePgm this_mod (\_ -> False) {- No rules active -} + occ_anald_binds = occurAnalysePgm this_mod False (\_ -> False) {- No rules active -} rules vects emptyVarEnv binds (subst', binds') = foldl do_one (emptySubst, []) occ_anald_binds |