X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FndpFlatten%2FFlattening.hs;h=62ff2465c4e0608a208885db2d1a7463514f388d;hb=17b297d97d327620ed6bfab942f8992b2446f1bf;hp=6072ad634fd432c3cd3bb1039a995e022bbec400;hpb=b1ab4b8a607addc4d097588db5761313c996a41f;p=ghc-hetmet.git

diff --git a/compiler/ndpFlatten/Flattening.hs b/compiler/ndpFlatten/Flattening.hs
index 6072ad6..62ff246 100644
--- a/compiler/ndpFlatten/Flattening.hs
+++ b/compiler/ndpFlatten/Flattening.hs
@@ -1,3 +1,10 @@
+{-# 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
+
 --  $Id$
 --
 --  Copyright (c) [2001..2002] Manuel M T Chakravarty & Gabriele Keller
@@ -89,10 +96,6 @@ import BasicTypes   (Boxity(..))
 import Outputable
 import FastString
 
-
--- FIXME: fro debugging - remove this
-import Debug.Trace  (trace)
-
 -- standard
 import Monad        (liftM, foldM)