diff options
| author | simonpj <unknown> | 2004-01-05 09:35:00 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2004-01-05 09:35:00 +0000 |
| commit | 8c92ca4a29a3943b47ec931f18e77a302465aaed (patch) | |
| tree | d090873a2141c11749cd145caa407314dccdfa71 /ghc/compiler | |
| parent | d191be5da8d2934a5c50bdbc605784d6a9043b6f (diff) | |
| download | haskell-8c92ca4a29a3943b47ec931f18e77a302465aaed.tar.gz | |
[project @ 2004-01-05 09:35:00 by simonpj]
Pretty-print wibbles following Ians changes to TH libs
Diffstat (limited to 'ghc/compiler')
| -rw-r--r-- | ghc/compiler/hsSyn/Convert.lhs | 4 | ||||
| -rw-r--r-- | 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 fc724de564..a12e5945ec 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 11f4a6a482..f60b844842 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 |