From 8c92ca4a29a3943b47ec931f18e77a302465aaed Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 5 Jan 2004 09:35:00 +0000
Subject: [PATCH] [project @ 2004-01-05 09:35:00 by simonpj] Pretty-print
 wibbles following Ians changes to TH libs

---
 ghc/compiler/hsSyn/Convert.lhs      |    4 ++--
 ghc/compiler/typecheck/TcSplice.lhs |    2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/compiler/hsSyn/Convert.lhs b/ghc/compiler/hsSyn/Convert.lhs
index fc724de..a12e594 100644
--- a/ghc/compiler/hsSyn/Convert.lhs
+++ b/ghc/compiler/hsSyn/Convert.lhs
@@ -230,7 +230,7 @@ cvtd (TH.ValD p body ds)
   = noLoc $ PatBind (cvtlp p) (GRHSs (cvtguard body) (cvtdecs ds) void)
 
 cvtd d = cvtPanic "Illegal kind of declaration in where clause" 
-		  (text (show (TH.pprDec d)))
+		  (text (show (TH.ppr d)))
 
 
 cvtclause :: TH.Clause -> Hs.LMatch RdrName
@@ -311,7 +311,7 @@ cvt_pred :: TH.Type -> LHsPred RdrName
 cvt_pred ty = case split_ty_app ty of
 	   	(ConT tc, tys) -> noLoc (HsClassP (tconName tc) (map cvtType tys))
 	   	(VarT tv, tys) -> noLoc (HsClassP (tName tv) (map cvtType tys))
-		other -> cvtPanic "Malformed predicate" (text (show (TH.pprType ty)))
+		other -> cvtPanic "Malformed predicate" (text (show (TH.ppr ty)))
 
 convertToHsType = cvtType
 
diff --git a/ghc/compiler/typecheck/TcSplice.lhs b/ghc/compiler/typecheck/TcSplice.lhs
index 11f4a6a..f60b844 100644
--- a/ghc/compiler/typecheck/TcSplice.lhs
+++ b/ghc/compiler/typecheck/TcSplice.lhs
@@ -481,7 +481,7 @@ mk_uniq :: Int# -> Unique
 mk_uniq u = mkUniqueGrimily (I# u)
 
 notInScope :: TH.Name -> SDoc
-notInScope th_name = quotes (text (show (TH.pprName th_name))) <+> 
+notInScope th_name = quotes (text (show (TH.ppr th_name))) <+> 
 		     ptext SLIT("is not in scope at a reify")
 	-- Ugh! Rather an indirect way to display the name
 
-- 
1.7.10.4