projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
FIX #1914: GHCi forgot all the modules that were loaded before an error
[ghc-hetmet.git]
/
compiler
/
cprAnalysis
/
CprAnalyse.lhs
diff --git
a/compiler/cprAnalysis/CprAnalyse.lhs
b/compiler/cprAnalysis/CprAnalyse.lhs
index
dad6ccb
..
f699943
100644
(file)
--- 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}
\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
#ifndef OLD_STRICTNESS
module CprAnalyse ( ) where
@@
-11,16
+20,15
@@
module CprAnalyse ( cprAnalyse ) where
#include "HsVersions.h"
#include "HsVersions.h"
-import DynFlags ( DynFlags, DynFlag(..) )
-import CoreLint ( showPass, endPass )
+import DynFlags
+import CoreLint
import CoreSyn
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 VarEnv
-import Util ( nTimes, mapAccumL )
+import Util
import Outputable
import Maybe
import Outputable
import Maybe