X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FsimplStg%2FSimplStg.lhs;h=4c240e2135de5d9cac23f9c419a87cba50a89d58;hp=e31415b2f54d95e9b5d6af59eadbf3c4a849ffd1;hb=aedb94f5f220b5e442b23ecc445fd38c8d9b6ba0;hpb=30c122df62ec75f9ed7f392f24c2925675bf1d06

diff --git a/compiler/simplStg/SimplStg.lhs b/compiler/simplStg/SimplStg.lhs
index e31415b..4c240e2 100644
--- a/compiler/simplStg/SimplStg.lhs
+++ b/compiler/simplStg/SimplStg.lhs
@@ -72,7 +72,7 @@ stg2stg dflags module_name binds
 	     {-# SCC "ProfMassage" #-}
 	     let
 		 (collected_CCs, binds3)
-		   = stgMassageForProfiling this_pkg module_name us1 binds
+		   = stgMassageForProfiling dflags this_pkg module_name us1 binds
 		 this_pkg = thisPackage dflags
 	     in
 	     end_pass us2 "ProfMassage" collected_CCs binds3