Fix the stage 1 build

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

diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs
index e7b1202..3b85b3d 100644 (file)
--- 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.