Another name printing tweak
authorIan Lynagh <igloo@earth.li>
Sat, 7 Apr 2007 12:20:55 +0000 (12:20 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 7 Apr 2007 12:20:55 +0000 (12:20 +0000)
Language/Haskell/TH/Ppr.hs

index a48a955..3281781 100644 (file)
@@ -170,9 +170,9 @@ instance Ppr Pat where
 
 pprPat :: Precedence -> Pat -> Doc
 pprPat i (LitP l)     = pprLit i l
 
 pprPat :: Precedence -> Pat -> Doc
 pprPat i (LitP l)     = pprLit i l
-pprPat _ (VarP v)     = ppr v
+pprPat _ (VarP v)     = pprName' Applied v
 pprPat _ (TupP ps)    = parens $ sep $ punctuate comma $ map ppr ps
 pprPat _ (TupP ps)    = parens $ sep $ punctuate comma $ map ppr ps
-pprPat i (ConP s ps)  = parensIf (i > noPrec) $ ppr s
+pprPat i (ConP s ps)  = parensIf (i > noPrec) $ pprName' Applied s
                                             <+> sep (map (pprPat appPrec) ps)
 pprPat i (InfixP p1 n p2)
                       = parensIf (i > noPrec) (pprPat opPrec p1 <+>
                                             <+> sep (map (pprPat appPrec) ps)
 pprPat i (InfixP p1 n p2)
                       = parensIf (i > noPrec) (pprPat opPrec p1 <+>