X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fspecialise%2FSpecialise.lhs;h=b424e4a2e759f4c92ce2a7d16ca48cf35bfbadc3;hb=9bcaaaaa59acff95886ad3675677e58c43106bd2;hp=a3b5dd6bed2575c961e3b7e78f9458bcae83610a;hpb=55d32c4ca056b509b63a35b0661724e8a2529aee;p=ghc-hetmet.git

diff --git a/compiler/specialise/Specialise.lhs b/compiler/specialise/Specialise.lhs
index a3b5dd6..b424e4a 100644
--- a/compiler/specialise/Specialise.lhs
+++ b/compiler/specialise/Specialise.lhs
@@ -588,7 +588,8 @@ specProgram dflags us binds = do
 	endPass dflags "Specialise" Opt_D_dump_spec binds'
 
 	dumpIfSet_dyn dflags Opt_D_dump_rules "Top-level specialisations"
-		  (pprRules (tidyRules emptyTidyEnv (rulesOfBinds binds')))
+		  (withPprStyle defaultUserStyle $
+		   pprRules (tidyRules emptyTidyEnv (rulesOfBinds binds')))
 
 	return binds'
   where