Remove a hack from a time when ghc couldn't do seq

[ghc-hetmet.git] / compiler / rename / RnExpr.lhs

diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs
index e7b1202..d29a634 100644 (file)
--- a/compiler/rename/RnExpr.lhs
+++ b/compiler/rename/RnExpr.lhs
@@ -92,13 +92,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.