[project @ 2000-07-11 16:24:57 by simonmar]

[ghc-hetmet.git] / ghc / compiler / simplCore / SimplMonad.lhs

diff --git a/ghc/compiler/simplCore/SimplMonad.lhs b/ghc/compiler/simplCore/SimplMonad.lhs
index 97dee5c..a5d5a98 100644 (file)
--- a/ghc/compiler/simplCore/SimplMonad.lhs
+++ b/ghc/compiler/simplCore/SimplMonad.lhs
@@ -46,24 +46,19 @@ module SimplMonad (
 #include "HsVersions.h"
 
 import Id              ( Id, mkSysLocal, idUnfolding, isDataConWrapId )
-import IdInfo          ( InlinePragInfo(..) )
-import Demand          ( Demand )
 import CoreSyn
-import CoreUnfold      ( isCompulsoryUnfolding, isEvaldUnfolding )
+import CoreUnfold      ( isCompulsoryUnfolding )
 import PprCore         ()      -- Instances
-import Rules           ( RuleBase )
 import CostCentre      ( CostCentreStack, subsumedCCS )
 import Name            ( isLocallyDefined )
 import OccName         ( UserFS )
-import Var             ( TyVar )
 import VarEnv
 import VarSet
 import qualified Subst
-import Subst           ( Subst, emptySubst, mkSubst, 
-                         substTy, substEnv, 
+import Subst           ( Subst, mkSubst, substEnv, 
                          InScopeSet, substInScope, isInScope
                        )
-import Type             ( Type, TyVarSubst, applyTy )
+import Type             ( Type )
 import UniqSupply      ( uniqsFromSupply, uniqFromSupply, splitUniqSupply,
                          UniqSupply
                        )