X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplStg%2FSimplStg.lhs;h=bdb8c761c8d99583d8f5d4e5e600d99fa9639b72;hb=5500fa8ff26e97cdd7112c51ab10266ec193dee4;hp=dc945f52bef43ce7ed3cce2023b6f6b67a0b4d9d;hpb=7a236a564b90cd060612e1e979ce7d552da61fa1;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplStg/SimplStg.lhs b/ghc/compiler/simplStg/SimplStg.lhs
index dc945f5..bdb8c76 100644
--- a/ghc/compiler/simplStg/SimplStg.lhs
+++ b/ghc/compiler/simplStg/SimplStg.lhs
@@ -74,7 +74,7 @@ stg2stg dflags module_name binds
 	     _scc_ "ProfMassage"
 	     let
 		 (collected_CCs, binds3)
-		   = stgMassageForProfiling module_name us1 binds
+		   = stgMassageForProfiling dflags module_name us1 binds
 	     in
 	     end_pass us2 "ProfMassage" collected_CCs binds3