[project @ 2000-12-06 13:03:28 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 fdc20bf..0160906 100644 (file)
--- a/ghc/compiler/simplCore/FloatOut.lhs
+++ b/ghc/compiler/simplCore/FloatOut.lhs
@@ -96,10 +96,8 @@ floatOutwards dflags float_lams us pgm
                        int ntlets, ptext SLIT(" Lets floated elsewhere; from "),
                        int lams,   ptext SLIT(" Lambda groups")]);
 
-       endPass dflags float_msg
-               (dopt Opt_D_verbose_core2core dflags)
+       endPass dflags float_msg  Opt_D_verbose_core2core (concat binds_s')
                        {- no specific flag for dumping float-out -} 
-               (concat binds_s')
     }
   where
     float_msg | float_lams = "Float out (floating lambdas too)"