From 3b3e0e79dacbfdce65a4224f13559f1e7b135d28 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 18 May 1997 22:55:57 +0000
Subject: [PATCH] [project @ 1997-05-18 22:55:57 by sof] new PP
---
ghc/compiler/typecheck/TcDefaults.lhs | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/ghc/compiler/typecheck/TcDefaults.lhs b/ghc/compiler/typecheck/TcDefaults.lhs
index b12cb5f7e454..0b9a66b67bf6 100644
--- 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 Type ( SYN_IE(Type) )
import Unique ( numClassKey )
-import Pretty ( ppPStr, ppAboves )
+import Pretty ( ptext, vcat )
import ErrUtils ( addShortErrLocLine )
import Util
\end{code}
@@ -63,14 +64,14 @@ tc_defaults decls
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 ->
- ppPStr SLIT("multiple default declarations")) sty
+ ptext SLIT("multiple default declarations")) 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}
--
GitLab