X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fspecialise%2FSpecConstr.lhs;h=85bbd96ebd037127085bd299a56c64ba56d87bf1;hb=7d841483081735f5f906a6bb5e80249d97f3226b;hp=6622764ca91693b95000fab97eaab630107b32b0;hpb=2e95d5409279298a6c59492210001f468fcf47c3;p=ghc-hetmet.git

diff --git a/ghc/compiler/specialise/SpecConstr.lhs b/ghc/compiler/specialise/SpecConstr.lhs
index 6622764..85bbd96 100644
--- a/ghc/compiler/specialise/SpecConstr.lhs
+++ b/ghc/compiler/specialise/SpecConstr.lhs
@@ -14,12 +14,13 @@ import CoreSyn
 import CoreLint		( showPass, endPass )
 import CoreUtils	( exprType, eqExpr, mkPiTypes )
 import CoreFVs 		( exprsFreeVars )
+import CoreTidy		( tidyIdRules )
 import WwLib		( mkWorkerArgs )
 import DataCon		( dataConRepArity )
 import Type		( tyConAppArgs )
-import PprCore		( pprCoreRules )
+import PprCore		( pprIdRules )
 import Id		( Id, idName, idType, idSpecialisation,
-			  isDataConId_maybe,
+			  isDataConId_maybe, 
 			  mkUserLocal, mkSysLocal )
 import Var		( Var )
 import VarEnv
@@ -190,7 +191,7 @@ specConstrProgram dflags us binds
 			  go env' binds 	`thenUs` \ binds' ->
 			  returnUs (bind' : binds')
 
-dump_specs var = pprCoreRules var (idSpecialisation var)
+    dump_specs var = pprIdRules (tidyIdRules var)
 \end{code}