From: Ian Lynagh <igloo@earth.li>
Date: Sat, 30 Aug 2008 23:54:30 +0000 (+0000)
Subject: Squash a space leak
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=af075cd3341968e4eac6f95cd76df17e99597fa8

Squash a space leak
---

diff --git a/compiler/rename/RnBinds.lhs b/compiler/rename/RnBinds.lhs
index 60d1a3e..a921924 100644
--- a/compiler/rename/RnBinds.lhs
+++ b/compiler/rename/RnBinds.lhs
@@ -495,11 +495,13 @@ rnBind _ trim (L loc (PatBind { pat_lhs = pat,
 
 	; (grhss', fvs) <- rnGRHSs PatBindRhs grhss
 		-- No scoped type variables for pattern bindings
+	; let fvs' = trim fvs
 
-	; return (L loc (PatBind { pat_lhs = pat, 
+	; fvs' `seq`
+      return (L loc (PatBind { pat_lhs = pat,
                                   pat_rhs = grhss', 
 				     pat_rhs_ty = placeHolderType, 
-                                  bind_fvs = trim fvs }), 
+                                  bind_fvs = fvs' }),
 		  bndrs, pat_fvs `plusFV` fvs) }
 
 rnBind sig_fn 
@@ -517,13 +519,15 @@ rnBind sig_fn
 	; (matches', fvs) <- bindSigTyVarsFV (sig_fn plain_name) $
 				-- bindSigTyVars tests for Opt_ScopedTyVars
 			     rnMatchGroup (FunRhs plain_name inf) matches
+	; let fvs' = trim fvs
 
 	; checkPrecMatch inf plain_name matches'
 
-	; return (L loc (FunBind { fun_id = name, 
+	; fvs' `seq`
+      return (L loc (FunBind { fun_id = name,
                                   fun_infix = inf, 
                                   fun_matches = matches',
-				     bind_fvs = trim fvs, 
+				     bind_fvs = fvs',
                                   fun_co_fn = idHsWrapper, 
                                   fun_tick = Nothing }), 
 		  [plain_name], fvs)