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

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

diff --git a/ghc/compiler/simplCore/FloatOut.lhs b/ghc/compiler/simplCore/FloatOut.lhs
index c929be3..cf95cbe 100644 (file)
--- a/ghc/compiler/simplCore/FloatOut.lhs
+++ b/ghc/compiler/simplCore/FloatOut.lhs
@@ -19,11 +19,9 @@ import CostCentre    ( dupifyCC, CostCentre )
 import Id              ( Id, idType )
 import VarEnv
 import CoreLint                ( beginPass, endPass )
-import PprCore
 import SetLevels       ( setLevels,
                          Level(..), tOP_LEVEL, ltMajLvl, ltLvl, isTopLvl
                        )
-import BasicTypes      ( Unused )
 import Type            ( isUnLiftedType )
 import Var             ( TyVar )
 import UniqSupply       ( UniqSupply )