X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FFloatOut.lhs;h=ba74afce7669865002b689f1843cb820b0377a91;hb=0a5613f40b0e32cf59966e6b56b807cdbe80aa7b;hp=f5f894648af86776ff78e88326020b7df53ddf47;hpb=b84ba676034763b3082bbd9405794a4fde499d14;p=ghc-hetmet.git

diff --git a/compiler/simplCore/FloatOut.lhs b/compiler/simplCore/FloatOut.lhs
index f5f8946..ba74afc 100644
--- a/compiler/simplCore/FloatOut.lhs
+++ b/compiler/simplCore/FloatOut.lhs
@@ -11,8 +11,9 @@ module FloatOut ( floatOutwards ) where
 import CoreSyn
 import CoreUtils
 import CoreArity	( etaExpand )
+import CoreMonad	( FloatOutSwitches(..) )
 
-import DynFlags	( DynFlags, DynFlag(..), FloatOutSwitches(..) )
+import DynFlags		( DynFlags, DynFlag(..) )
 import ErrUtils		( dumpIfSet_dyn )
 import CostCentre	( dupifyCC, CostCentre )
 import Id		( Id, idType, idArity, isBottomingId )