[project @ 1996-06-26 10:26:00 by partain]

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

diff --git a/ghc/compiler/simplCore/FloatOut.lhs b/ghc/compiler/simplCore/FloatOut.lhs
index 361b3cf..b66b618 100644 (file)
--- a/ghc/compiler/simplCore/FloatOut.lhs
+++ b/ghc/compiler/simplCore/FloatOut.lhs
@@ -11,23 +11,24 @@
 module FloatOut ( floatOutwards ) where
 
 IMP_Ubiq(){-uitous-}
+IMPORT_1_3(List(partition))
 
 import CoreSyn
 
 import CmdLineOpts     ( opt_D_verbose_core2core, opt_D_simplifier_stats )
 import CostCentre      ( dupifyCC )
-import Id              ( nullIdEnv, addOneToIdEnv, growIdEnvList, IdEnv(..),
+import Id              ( nullIdEnv, addOneToIdEnv, growIdEnvList, SYN_IE(IdEnv),
                          GenId{-instance Outputable-}
                        )
 import Outputable      ( Outputable(..){-instance (,)-} )
-import PprCore         ( GenCoreBinding{-instance-} )
+import PprCore
 import PprStyle                ( PprStyle(..) )
 import PprType         ( GenTyVar )
 import Pretty          ( ppInt, ppStr, ppBesides, ppAboves )
 import SetLevels       -- all of it
 import TyVar           ( GenTyVar{-instance Eq-} )
 import Unique          ( Unique{-instance Eq-} )
-import Usage           ( UVar(..) )
+import Usage           ( SYN_IE(UVar) )
 import Util            ( pprTrace, panic )
 \end{code}