X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FFloatIn.lhs;fp=ghc%2Fcompiler%2FsimplCore%2FFloatIn.lhs;h=4744b33e76b327953e02f395b2dc85ecff5e31dd;hb=9aa6d18bd696e8861fb8c3e065e49a989d2d67ac;hp=52250b4dbaa8a29ac5882c33699f107be676f8b2;hpb=9bb6b6d0fbca6c82040027fab9859c9fcbc1ef7e;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/FloatIn.lhs b/ghc/compiler/simplCore/FloatIn.lhs
index 52250b4..4744b33 100644
--- a/ghc/compiler/simplCore/FloatIn.lhs
+++ b/ghc/compiler/simplCore/FloatIn.lhs
@@ -16,7 +16,7 @@ module FloatIn ( floatInwards ) where
 
 #include "HsVersions.h"
 
-import CmdLineOpts	( opt_D_verbose_core2core )
+import CmdLineOpts	( DynFlags, DynFlag(..), dopt )
 import CoreSyn
 import CoreUtils	( exprIsValue, exprIsDupable )
 import CoreLint		( beginPass, endPass )
@@ -33,14 +33,15 @@ Top-level interface function, @floatInwards@.  Note that we do not
 actually float any bindings downwards from the top-level.
 
 \begin{code}
-floatInwards :: [CoreBind] -> IO [CoreBind]
+floatInwards :: DynFlags -> [CoreBind] -> IO [CoreBind]
 
-floatInwards binds
+floatInwards dflags binds
   = do {
-	beginPass "Float inwards";
+	beginPass dflags "Float inwards";
 	let { binds' = map fi_top_bind binds };
-	endPass "Float inwards" 
-	 	opt_D_verbose_core2core		{- no specific flag for dumping float-in -} 
+	endPass dflags "Float inwards" 
+	 	(dopt Opt_D_verbose_core2core dflags)
+				{- no specific flag for dumping float-in -} 
 		binds'	
     }