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

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