projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-03-18 15:23:05 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
specialise
/
SpecConstr.lhs
diff --git
a/ghc/compiler/specialise/SpecConstr.lhs
b/ghc/compiler/specialise/SpecConstr.lhs
index
6622764
..
85bbd96
100644
(file)
--- 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 CoreLint ( showPass, endPass )
import CoreUtils ( exprType, eqExpr, mkPiTypes )
import CoreFVs ( exprsFreeVars )
+import CoreTidy ( tidyIdRules )
import WwLib ( mkWorkerArgs )
import DataCon ( dataConRepArity )
import Type ( tyConAppArgs )
import WwLib ( mkWorkerArgs )
import DataCon ( dataConRepArity )
import Type ( tyConAppArgs )
-import PprCore ( pprCoreRules )
+import PprCore ( pprIdRules )
import Id ( Id, idName, idType, idSpecialisation,
import Id ( Id, idName, idType, idSpecialisation,
- isDataConId_maybe,
+ isDataConId_maybe,
mkUserLocal, mkSysLocal )
import Var ( Var )
import VarEnv
mkUserLocal, mkSysLocal )
import Var ( Var )
import VarEnv
@@
-190,7
+191,7
@@
specConstrProgram dflags us binds
go env' binds `thenUs` \ binds' ->
returnUs (bind' : binds')
go env' binds `thenUs` \ binds' ->
returnUs (bind' : binds')
-dump_specs var = pprCoreRules var (idSpecialisation var)
+ dump_specs var = pprIdRules (tidyIdRules var)
\end{code}
\end{code}