projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1996-05-16 09:42:08 by partain]
[ghc-hetmet.git]
/
ghc
/
compiler
/
coreSyn
/
PprCore.lhs
diff --git
a/ghc/compiler/coreSyn/PprCore.lhs
b/ghc/compiler/coreSyn/PprCore.lhs
index
20f0b4d
..
8fa61e5
100644
(file)
--- a/
ghc/compiler/coreSyn/PprCore.lhs
+++ b/
ghc/compiler/coreSyn/PprCore.lhs
@@
-35,7
+35,7
@@
import Literal ( Literal{-instances-} )
import Name ( isSymLexeme )
import Outputable -- quite a few things
import PprEnv
import Name ( isSymLexeme )
import Outputable -- quite a few things
import PprEnv
-import PprType ( GenType{-instances-}, GenTyVar{-instance-} )
+import PprType ( pprParendGenType, GenType{-instances-}, GenTyVar{-instance-} )
import PprStyle ( PprStyle(..) )
import Pretty
import PrimOp ( PrimOp{-instances-} )
import PprStyle ( PprStyle(..) )
import Pretty
import PrimOp ( PrimOp{-instances-} )
@@
-91,7
+91,7
@@
init_ppr_env sty pbdr1 pbdr2 pocc
(Just (ppr sty)) -- tyvars
(Just (ppr sty)) -- usage vars
(Just pbdr1) (Just pbdr2) (Just pocc) -- value vars
(Just (ppr sty)) -- tyvars
(Just (ppr sty)) -- usage vars
(Just pbdr1) (Just pbdr2) (Just pocc) -- value vars
- (Just (ppr sty)) -- types
+ (Just (pprParendGenType sty)) -- types
(Just (ppr sty)) -- usages
--------------
(Just (ppr sty)) -- usages
--------------