X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FGraphOps.hs;h=419cd383f6ff4b45dd04487b960bdd128d3f0bef;hp=92058e93f8f37c14ba63011a7fa701ca3a76bc1b;hb=17b297d97d327620ed6bfab942f8992b2446f1bf;hpb=e11fa7a5e0025460df3b8562ccbf3ffd1db68d5d

diff --git a/compiler/nativeGen/GraphOps.hs b/compiler/nativeGen/GraphOps.hs
index 92058e93..419cd38 100644
--- a/compiler/nativeGen/GraphOps.hs
+++ b/compiler/nativeGen/GraphOps.hs
@@ -1,6 +1,14 @@
 
 -- | Basic operations on graphs.
 --
+
+{-# 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 GraphOps (
 	addNode, 	delNode,	getNode,	lookupNode,	modNode,
 	size,