projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-06-15 12:03:19 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
types
/
InstEnv.lhs
diff --git
a/ghc/compiler/types/InstEnv.lhs
b/ghc/compiler/types/InstEnv.lhs
index
2ed8309
..
03d65a0
100644
(file)
--- a/
ghc/compiler/types/InstEnv.lhs
+++ b/
ghc/compiler/types/InstEnv.lhs
@@
-155,7
+155,7
@@
pprInstance :: Instance -> SDoc
pprInstance ispec@(Instance { is_flag = flag })
= hang (ptext SLIT("instance") <+> ppr flag
<+> sep [pprThetaArrow theta, pprClassPred clas tys])
pprInstance ispec@(Instance { is_flag = flag })
= hang (ptext SLIT("instance") <+> ppr flag
<+> sep [pprThetaArrow theta, pprClassPred clas tys])
- 2 (parens (pprDefnLoc (getSrcLoc ispec)))
+ 2 (ptext SLIT("--") <+> (pprDefnLoc (getSrcLoc ispec)))
where
(_, theta, clas, tys) = instanceHead ispec
-- Print without the for-all, which the programmer doesn't write
where
(_, theta, clas, tys) = instanceHead ispec
-- Print without the for-all, which the programmer doesn't write