X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FSetLevels.lhs;h=14c75868f0f6c2eb96783d1c866da504a8947179;hb=17b297d97d327620ed6bfab942f8992b2446f1bf;hp=5061c18895f4bdcf11994d2e19b5d0cd55f73321;hpb=e11fa7a5e0025460df3b8562ccbf3ffd1db68d5d;p=ghc-hetmet.git

diff --git a/compiler/simplCore/SetLevels.lhs b/compiler/simplCore/SetLevels.lhs
index 5061c18..14c7586 100644
--- a/compiler/simplCore/SetLevels.lhs
+++ b/compiler/simplCore/SetLevels.lhs
@@ -42,6 +42,13 @@
   the scrutinee of the case, and we can inline it.  
 
 \begin{code}
+{-# OPTIONS_GHC -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/WorkingConventions#Warnings
+-- for details
+
 module SetLevels (
 	setLevels,