X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FFloatOut.lhs;h=01609066511199a30521f642fc5d4cec0ee77b0a;hb=10bc730f39fc87663e9f5e1449dd6171e32d23b7;hp=fdc20bf707bcc7c93104530c0004d69a24528dcb;hpb=f23ba2b294429ccbdeb80f0344ec08f6abf61bb7;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/FloatOut.lhs b/ghc/compiler/simplCore/FloatOut.lhs
index fdc20bf..0160906 100644
--- 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)"