From 26ad3fed8383890334d49bb6eb041bcc20fb584e Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 3 May 2008 23:28:32 +0000 Subject: [PATCH] Remove a hack from a time when ghc couldn't do seq --- compiler/rename/RnExpr.lhs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs index e7b1202..d29a634 100644 --- 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. -- 1.7.10.4