X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnExpr.lhs;h=3b85b3df4d3d4947e1980fd8faf6213c823c8f41;hb=432b38b66700d243369df5b76e5c5c01b5e197ff;hp=e7b12023257e485a1f86a11d914bf93591d73b5c;hpb=67b8bb87c99fc9a7f1e41321174d3a60ba798af1;p=ghc-hetmet.git

diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs
index e7b1202..3b85b3d 100644
--- a/compiler/rename/RnExpr.lhs
+++ b/compiler/rename/RnExpr.lhs
@@ -28,9 +28,7 @@ import TcRnMonad
 import RnEnv
 import RnTypes		( rnHsTypeFVs, 
 			  mkOpFormRn, mkOpAppRn, mkNegAppRn, checkSectionPrec)
-import RnPat            (rnQuasiQuote, rnOverLit, rnPatsAndThen_LocalRightwards, rnBindPat,
-                         localRecNameMaker, rnLit,
-			 rnHsRecFields_Con, rnHsRecFields_Update, checkTupSize)
+import RnPat
 import DynFlags		( DynFlag(..) )
 import BasicTypes	( FixityDirection(..) )
 import PrelNames	( thFAKE, hasKey, assertIdKey, assertErrorName,
@@ -92,13 +90,8 @@ rnExprs ls = rnExprs' ls emptyUniqSet
     let
 	acc' = acc `plusFV` fvExpr
     in
-    (grubby_seqNameSet acc' rnExprs') exprs acc'	`thenM` \ (exprs', fvExprs) ->
+    acc' `seq` rnExprs' exprs acc' `thenM` \ (exprs', fvExprs) ->
     returnM (expr':exprs', fvExprs)
-
--- Grubby little function to do "seq" on namesets; replace by proper seq when GHC can do seq
-grubby_seqNameSet :: UniqSet Name -> a -> a
-grubby_seqNameSet ns result | isEmptyUniqSet ns = result
-			    | otherwise    = result
 \end{code}
 
 Variables. We look up the variable and return the resulting name.