[project @ 2004-04-21 12:45:54 by simonpj]

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

diff --git a/ghc/compiler/simplCore/FloatOut.lhs b/ghc/compiler/simplCore/FloatOut.lhs
index b756a63..ac1c29d 100644 (file)
--- a/ghc/compiler/simplCore/FloatOut.lhs
+++ b/ghc/compiler/simplCore/FloatOut.lhs
@@ -111,12 +111,12 @@ type FloatBinds    = [FloatBind]
 %************************************************************************
 
 \begin{code}
-floatOutwards :: DynFlags
-             -> FloatOutSwitches
+floatOutwards :: FloatOutSwitches
+             -> DynFlags
              -> UniqSupply 
              -> [CoreBind] -> IO [CoreBind]
 
-floatOutwards dflags float_sws us pgm
+floatOutwards float_sws dflags us pgm
   = do {
        showPass dflags float_msg ;