X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcprAnalysis%2FCprAnalyse.lhs;h=d337d025e3b2de1b0895d69a93e2953e1ef28541;hp=dad6ccbaee5bfe8b71f910845be7865092452042;hb=49c98d143c382a1341e1046f5ca00819a25691ba;hpb=b00b5bc04ff36a551552470060064f0b7d84ca30

diff --git a/compiler/cprAnalysis/CprAnalyse.lhs b/compiler/cprAnalysis/CprAnalyse.lhs
index dad6ccb..d337d02 100644
--- a/compiler/cprAnalysis/CprAnalyse.lhs
+++ b/compiler/cprAnalysis/CprAnalyse.lhs
@@ -1,3 +1,5 @@
+% (c) The University of Glasgow 2006
+
 \section[CprAnalyse]{Identify functions that always return a
 constructed product result}
 
@@ -11,16 +13,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