From: simonpj@microsoft.com <unknown>
Date: Mon, 11 Aug 2008 10:38:21 +0000 (+0000)
Subject: Minor refactoring; no functionality change
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=55d32c4ca056b509b63a35b0661724e8a2529aee

Minor refactoring; no functionality change
---

diff --git a/compiler/specialise/Specialise.lhs b/compiler/specialise/Specialise.lhs
index 41bdfd7..a3b5dd6 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