projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
67b8bb8
)
Remove a hack from a time when ghc couldn't do seq
author
Ian Lynagh
<igloo@earth.li>
Sat, 3 May 2008 23:28:32 +0000
(23:28 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 3 May 2008 23:28:32 +0000
(23:28 +0000)
compiler/rename/RnExpr.lhs
patch
|
blob
|
history
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
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)
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.
\end{code}
Variables. We look up the variable and return the resulting name.