Pretty-print wibbles following Ians changes to TH libs
= noLoc $ PatBind (cvtlp p) (GRHSs (cvtguard body) (cvtdecs ds) void)
cvtd d = cvtPanic "Illegal kind of declaration in where clause"
= 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
cvtclause :: TH.Clause -> Hs.LMatch 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))
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
convertToHsType = cvtType
mk_uniq u = mkUniqueGrimily (I# u)
notInScope :: TH.Name -> SDoc
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
ptext SLIT("is not in scope at a reify")
-- Ugh! Rather an indirect way to display the name