X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FbasicTypes%2FNameSet.lhs;h=8f54f12248c4796d63e69dca7439671062ed391d;hp=2100fc5a857a803b3eea74604419f3e9c1f65483;hb=7fc749a43b4b6b85d234fa95d4928648259584f4;hpb=7745c6095145f1be0ca8fff76ef558ca7ad2ebed

diff --git a/compiler/basicTypes/NameSet.lhs b/compiler/basicTypes/NameSet.lhs
index 2100fc5..8f54f12 100644
--- a/compiler/basicTypes/NameSet.lhs
+++ b/compiler/basicTypes/NameSet.lhs
@@ -1,9 +1,16 @@
 %
+% (c) The University of Glasgow 2006
 % (c) The GRASP/AQUA Project, Glasgow University, 1998
 %
-\section[NameSet]{@NameSets@} 
 
 \begin{code}
+{-# OPTIONS -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+--     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
+-- for details
+
 module NameSet (
 	-- Sets of Names
 	NameSet,
@@ -28,7 +35,6 @@ import Name
 import UniqSet
 \end{code}
 
-
 %************************************************************************
 %*									*
 \subsection[Sets of names}
@@ -187,4 +193,4 @@ findUses dus uses
 	= rhs_uses `unionNameSets` uses
 	| otherwise	-- No def is used
 	= uses
-\end{code}
\ No newline at end of file
+\end{code}