X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcprAnalysis%2FCprAnalyse.lhs;h=f699943cd596203b96cdf279b195bb097b358b1f;hp=dad6ccbaee5bfe8b71f910845be7865092452042;hb=7fc749a43b4b6b85d234fa95d4928648259584f4;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1

diff --git a/compiler/cprAnalysis/CprAnalyse.lhs b/compiler/cprAnalysis/CprAnalyse.lhs
index dad6ccb..f699943 100644
--- a/compiler/cprAnalysis/CprAnalyse.lhs
+++ b/compiler/cprAnalysis/CprAnalyse.lhs
@@ -1,7 +1,16 @@
+% (c) The University of Glasgow 2006
+
 \section[CprAnalyse]{Identify functions that always return a
 constructed product result}
 
 \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
+
 #ifndef OLD_STRICTNESS
 module CprAnalyse ( ) where
 
@@ -11,16 +20,15 @@ module CprAnalyse ( cprAnalyse ) where
 
 #include "HsVersions.h"
 
-import DynFlags	( DynFlags, DynFlag(..) )
-import CoreLint		( showPass, endPass )
+import DynFlags
+import CoreLint
 import CoreSyn
-import CoreUtils	( exprIsHNF )
-import Id               ( Id, setIdCprInfo, idCprInfo, idArity,
-			  isBottomingId, idDemandInfo, isImplicitId )
-import IdInfo           ( CprInfo(..) )
-import Demand		( isStrict )
+import CoreUtils
+import Id
+import IdInfo
+import Demand
 import VarEnv
-import Util		( nTimes, mapAccumL )
+import Util
 import Outputable
 
 import Maybe