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

diff --git a/compiler/specialise/SpecConstr.lhs b/compiler/specialise/SpecConstr.lhs
index 055f794..a52de10 100644
--- a/compiler/specialise/SpecConstr.lhs
+++ b/compiler/specialise/SpecConstr.lhs
@@ -463,7 +463,8 @@ specConstrProgram dflags us binds
 	endPass dflags "SpecConstr" 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