projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove dead code in the CPS pass
[ghc-hetmet.git]
/
compiler
/
basicTypes
/
NameSet.lhs
diff --git
a/compiler/basicTypes/NameSet.lhs
b/compiler/basicTypes/NameSet.lhs
index
2100fc5
..
5c2c1b8
100644
(file)
--- a/
compiler/basicTypes/NameSet.lhs
+++ b/
compiler/basicTypes/NameSet.lhs
@@
-1,7
+1,7
@@
%
%
+% (c) The University of Glasgow 2006
% (c) The GRASP/AQUA Project, Glasgow University, 1998
%
% (c) The GRASP/AQUA Project, Glasgow University, 1998
%
-\section[NameSet]{@NameSets@}
\begin{code}
module NameSet (
\begin{code}
module NameSet (
@@
-28,7
+28,6
@@
import Name
import UniqSet
\end{code}
import UniqSet
\end{code}
-
%************************************************************************
%* *
\subsection[Sets of names}
%************************************************************************
%* *
\subsection[Sets of names}
@@
-187,4
+186,4
@@
findUses dus uses
= rhs_uses `unionNameSets` uses
| otherwise -- No def is used
= uses
= rhs_uses `unionNameSets` uses
| otherwise -- No def is used
= uses
-\end{code}
\ No newline at end of file
+\end{code}