diff options
| author | simonpj@microsoft.com <unknown> | 2008-08-11 10:38:21 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2008-08-11 10:38:21 +0000 |
| commit | 55d32c4ca056b509b63a35b0661724e8a2529aee (patch) | |
| tree | 98ce1ba5b21c104bbb5471bf36d9dee41de36156 | |
| parent | a0a541a8d342d6189d5e76ba65a8e914251d1d84 (diff) | |
| download | haskell-55d32c4ca056b509b63a35b0661724e8a2529aee.tar.gz | |
Minor refactoring; no functionality change
| -rw-r--r-- | compiler/specialise/Specialise.lhs | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/compiler/specialise/Specialise.lhs b/compiler/specialise/Specialise.lhs index 41bdfd7cd8..a3b5dd6bed 100644 --- a/compiler/specialise/Specialise.lhs +++ b/compiler/specialise/Specialise.lhs @@ -1164,11 +1164,15 @@ dumpUDs :: [CoreBndr] dumpUDs bndrs (MkUD { dict_binds = orig_dbs , calls = orig_calls , ud_fvs = fvs}) body - = (MkUD { dict_binds = free_dbs - , calls = free_calls - , ud_fvs = fvs `minusVarSet` bndr_set}, -- This may delete fewer variables - foldrBag add_let body dump_dbs) -- than in priciple possible + = (new_uds, foldrBag add_let body dump_dbs) + -- This may delete fewer variables + -- than in priciple possible where + new_uds = + MkUD { dict_binds = free_dbs + , calls = free_calls + , ud_fvs = fvs `minusVarSet` bndr_set} + bndr_set = mkVarSet bndrs add_let (bind,_) body = Let bind body |