diff options
| author | igloo <unknown> | 2004-01-05 15:15:27 +0000 |
|---|---|---|
| committer | igloo <unknown> | 2004-01-05 15:15:27 +0000 |
| commit | 1b1d826f356b5a1d4b05da46e3db8a1f70c9db2a (patch) | |
| tree | b060625cf21aa23e14b8b92d893bcb9eeb58efc3 /ghc/compiler/hsSyn | |
| parent | 2ae018a0269ace8d2b6d3e65d616cc1b0b61686b (diff) | |
| download | haskell-1b1d826f356b5a1d4b05da46e3db8a1f70c9db2a.tar.gz | |
[project @ 2004-01-05 15:15:26 by igloo]
Use pprint rather than show . ppr to get String representations of TH
datastructures. Also moved pprint out of the class as we never want to
override it.
Diffstat (limited to 'ghc/compiler/hsSyn')
| -rw-r--r-- | ghc/compiler/hsSyn/Convert.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/hsSyn/Convert.lhs b/ghc/compiler/hsSyn/Convert.lhs index a12e5945ec..4b8f04c27f 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.ppr d))) + (text (TH.pprint 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.ppr ty))) + other -> cvtPanic "Malformed predicate" (text (TH.pprint ty)) convertToHsType = cvtType |