X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnExpr.lhs;h=fd4017fe2069c6c27510eca19ea5763aa4d88ba4;hp=6fe6904d4215a2b2a89d3f5863b5ff689ef0e0e4;hb=7fc749a43b4b6b85d234fa95d4928648259584f4;hpb=ace2d4a6b98b30397ba9f572aff64c13524cad3b

diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs
index 6fe6904..fd4017f 100644
--- a/compiler/rename/RnExpr.lhs
+++ b/compiler/rename/RnExpr.lhs
@@ -10,6 +10,13 @@ general, all of these functions return a renamed thing, and a set of
 free variables.
 
 \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 RnExpr (
 	rnLExpr, rnExpr, rnStmts
    ) where
@@ -45,7 +52,7 @@ import Util		( isSingleton )
 import ListSetOps	( removeDups )
 import Maybes		( expectJust )
 import Outputable
-import SrcLoc		( Located(..), unLoc, getLoc, cmpLocated )
+import SrcLoc		( Located(..), unLoc, getLoc )
 import FastString
 
 import List		( unzip4 )