[project @ 1998-03-19 23:54:49 by simonpj]

[ghc-hetmet.git] / ghc / compiler / stranal / SaLib.lhs

diff --git a/ghc/compiler/stranal/SaLib.lhs b/ghc/compiler/stranal/SaLib.lhs
index 0a4269a..9b6751c 100644 (file)
--- a/ghc/compiler/stranal/SaLib.lhs
+++ b/ghc/compiler/stranal/SaLib.lhs
@@ -20,12 +20,11 @@ module SaLib (
 import CoreSyn         ( CoreExpr )
 import Id              ( nullIdEnv, addOneToIdEnv, growIdEnvList,
                          lookupIdEnv, IdEnv,
-                         GenId{-instance Outputable-}, Id
+                         Id
                        )
 import IdInfo          ( StrictnessInfo(..) )
 import Demand          ( Demand{-instance Outputable-} )
 import Outputable
-import PprType         ( GenType{-instance Outputable-} )
 \end{code}
 
 %************************************************************************
@@ -88,7 +87,7 @@ implicitly bound to @AbsTop@, the completely uninformative,
 pessimistic value---see @absEval@ of a @Var@.
 
 \begin{code}
-data AbsValEnv = AbsValEnv (IdEnv AbsVal)
+newtype AbsValEnv = AbsValEnv (IdEnv AbsVal)
 
 type StrictEnv  = AbsValEnv    -- Environment for strictness analysis
 type AbsenceEnv = AbsValEnv    -- Environment for absence analysis