X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreUnfold.lhs;h=bcd03b2780b69242e87d852367a33b89ea747fd0;hb=a5b8f5c544e977a230da67456455aca9cd576637;hp=f8043d47573147b81d62ff60e366702c52dfc70e;hpb=b44b34500edbb94194d4fd6ff2acfac0b5ce7a16;p=ghc-hetmet.git

diff --git a/compiler/coreSyn/CoreUnfold.lhs b/compiler/coreSyn/CoreUnfold.lhs
index f8043d4..bcd03b2 100644
--- a/compiler/coreSyn/CoreUnfold.lhs
+++ b/compiler/coreSyn/CoreUnfold.lhs
@@ -741,7 +741,7 @@ callSiteInline dflags id unfolding lone_variable arg_infos cont_info
 				              res_discount arg_infos cont_info
 		
     in    
-    if dopt Opt_D_dump_inlinings dflags then
+    if (dopt Opt_D_dump_inlinings dflags && dopt Opt_D_verbose_core2core dflags) then
 	pprTrace ("Considering inlining: " ++ showSDoc (ppr id))
 		 (vcat [text "arg infos" <+> ppr arg_infos,
 			text "uf arity" <+> ppr uf_arity,