projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
13b6fa5
)
[project @ 1997-05-18 22:55:57 by sof]
author
sof
<unknown>
Sun, 18 May 1997 22:55:57 +0000
(22:55 +0000)
committer
sof
<unknown>
Sun, 18 May 1997 22:55:57 +0000
(22:55 +0000)
new PP
ghc/compiler/typecheck/TcDefaults.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/typecheck/TcDefaults.lhs
b/ghc/compiler/typecheck/TcDefaults.lhs
index
b12cb5f
..
0b9a66b
100644
(file)
--- a/
ghc/compiler/typecheck/TcDefaults.lhs
+++ b/
ghc/compiler/typecheck/TcDefaults.lhs
@@
-24,8
+24,9
@@
import TcMonoType ( tcHsType )
import TcSimplify ( tcSimplifyCheckThetas )
import TysWiredIn ( intTy, doubleTy, unitTy )
import TcSimplify ( tcSimplifyCheckThetas )
import TysWiredIn ( intTy, doubleTy, unitTy )
+import Type ( SYN_IE(Type) )
import Unique ( numClassKey )
import Unique ( numClassKey )
-import Pretty ( ppPStr, ppAboves )
+import Pretty ( ptext, vcat )
import ErrUtils ( addShortErrLocLine )
import Util
\end{code}
import ErrUtils ( addShortErrLocLine )
import Util
\end{code}
@@
-63,14
+64,14
@@
tc_defaults decls
dupDefaultDeclErr (DefaultDecl _ locn1 : dup_things) sty
dupDefaultDeclErr (DefaultDecl _ locn1 : dup_things) sty
- = ppAboves (item1 : map dup_item dup_things)
+ = vcat (item1 : map dup_item dup_things)
where
item1
= addShortErrLocLine locn1 (\ sty ->
where
item1
= addShortErrLocLine locn1 (\ sty ->
- ppPStr SLIT("multiple default declarations")) sty
+ ptext SLIT("multiple default declarations")) sty
dup_item (DefaultDecl _ locn)
= addShortErrLocLine locn (\ sty ->
dup_item (DefaultDecl _ locn)
= addShortErrLocLine locn (\ sty ->
- ppPStr SLIT("here was another default declaration")) sty
+ ptext SLIT("here was another default declaration")) sty
\end{code}
\end{code}