[project @ 2002-10-09 15:03:48 by simonpj]

[ghc-hetmet.git] / ghc / compiler / basicTypes / IdInfo.lhs

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index 06444e3..fdaef1a 100644 (file)
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -99,9 +99,11 @@ import Demand                hiding( Demand, seqDemand )
 import qualified Demand
 import NewDemand
 import Outputable      
-import Util            ( listLengthCmp )
 import Maybe           ( isJust )
+#ifdef OLD_STRICTNESS
+import Util            ( listLengthCmp )
 import List            ( replicate )
+#endif
 
 -- infixl so you can say (id `set` a `set` b)
 infixl         1 `setSpecInfo`,