From 55d32c4ca056b509b63a35b0661724e8a2529aee Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Mon, 11 Aug 2008 10:38:21 +0000
Subject: [PATCH] Minor refactoring; no functionality change

---
 compiler/specialise/Specialise.lhs |   12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

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
 
-- 
1.7.10.4