Commit 8c92ca4a authored by simonpj's avatar simonpj
Browse files

[project @ 2004-01-05 09:35:00 by simonpj]

Pretty-print wibbles following Ians changes to TH libs
parent d191be5d
......@@ -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
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment